測(cè)試成功,原碼:DimxlappAsExcel.Application'Excel對(duì)象DimxlbookAsExcel.Workbook'工作簿DimxlsheetAsExcel.Worksheet'工作表DimxlrangeAsExcel.rangePrivateSubCommand1_Click()Setxlapp=CreateObject("excel.application")'第一層Setxlbook=xlapp.Workbooks.Addxlapp.Visible=Truexlbook.sheets(1).range("a1")="新建成功"xlbook.SaveAsApp.Path&"/測(cè)試.xls"xlbook.CloseEndSub
網(wǎng)站導(dǎo)航
- zblogPHP模板zbpkf
- zblog免費(fèi)模板zblogfree
- zblog模板學(xué)習(xí)zblogxuexi
- zblogPHP仿站zbpfang