VB excel问题 各位大师赶紧现身 邦小弟解决问题
答案:1 悬赏:70 手机版
解决时间 2021-11-13 16:27
- 提问者网友：ミ烙印ゝ
- 2021-11-12 19:42
VB excel问题 各位大师赶紧现身 邦小弟解决问题
最佳答案
- 五星知识达人网友：荒野風
- 2021-11-12 20:37
Dim xlapp, xlbook, xlsheet
Set xlapp = CreateObject("Excel.Application")
Set xlbook = xlapp.Workbooks.Open("D:\excel_lianxi.xlsx"
)
Set xlsheet = xlbook.Sheets(1)
xlsheet.Cells(1, 1) = "2"
xlbook.Save()
xlbook.Close
xlapp.Quit
Set xlsheet = Nothing
Set xlbook = Nothing
Set xlapp = Nothing
Set xlapp = CreateObject("Excel.Application")
Set xlbook = xlapp.Workbooks.Open("D:\excel_lianxi.xlsx"
)
Set xlsheet = xlbook.Sheets(1)
xlsheet.Cells(1, 1) = "2"
xlbook.Save()
xlbook.Close
xlapp.Quit
Set xlsheet = Nothing
Set xlbook = Nothing
Set xlapp = Nothing
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯