7,785
社区成员
发帖
与我相关
我的任务
分享我定义了一个 Dim xlbook As Workbook,我想把 一个excel文件负给它，是哪个属性来着
Dim xlbook As Workbook
xlbook.???? = App.Path & "\orders1.xls"
xlbook.???? = App.Path & "\orders1.xls"
...全文
请发表友善的回复…
发表回复
footballboy 2002-06-15
- 打赏
- 举报
Dim xlApp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Private Sub Command1_Click()
Set xlApp = New Excel.Application
Set xlbook = xlApp.Workbooks.Open("c:\temp\模板.xls")
Set xlsheet = xlbook.Worksheets(1)
xlsheet.Range("A1") = "ABC"
xlbook.Save
xlbook.Close
xlApp.Quit
Set xlApp = Nothing
End Sub
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Private Sub Command1_Click()
Set xlApp = New Excel.Application
Set xlbook = xlApp.Workbooks.Open("c:\temp\模板.xls")
Set xlsheet = xlbook.Worksheets(1)
xlsheet.Range("A1") = "ABC"
xlbook.Save
xlbook.Close
xlApp.Quit
Set xlApp = Nothing
End Sub
shennongjia 2002-06-15
- 打赏
- 举报
人呢
shennongjia 2002-06-15
- 打赏
- 举报
helpme
