vb读写excel有没有简单一点的方法？

答案:2 悬赏:60 手机版

解决时间 2021-03-22 14:50

提问者网友：凉末
2021-03-22 09:25

Dim bolPopen As String
bolPopen = funOpenExcelFile(xlsApp, xlsBook, xlsSheet, App.Path & "\餐饮基金.xls", "当前日期", "", True)
Text6.Text = funReadCellText(xlsSheet, 1, 1) '提取当前年月
Dim bolPend As Boolean
bolPend = funCloseExcelFile(xlsApp, xlsBook, xlsSheet, True)

这个其实也是在网上找到的方法，但是觉得运行起来效果不好看，每次都要真正打打开Excel，执行命令，然后关闭。
有没有其他读写excel的方法，可以让他在后台运行，不显示出来？

最佳答案

五星知识达人网友：骨子里都是戏
2021-03-22 09:51

Dim xlapp As Excel.Application 'Excel对象
Dim xlbook As Excel.Workbook '工作簿
Dim xlsheet As Excel.Worksheet '工作表
Dim xlrange As Excel.Range
Private Sub Command1_Click()
Set xlapp = CreateObject("excel.application") '第一层
Set xlbook = xlapp.Workbooks.Open("d:\123.xlsx")
xlapp.Visible = True
x=workbooks("d:\123.xlsx").sheets(1).range("a1")'这里就把A1的值读取出来了！
End Sub

这个要得不？

全部回答

1楼网友：長槍戰八方
2021-03-22 10:36

代码没有问题，这个地方 m_x = excelapp.cells(5, 9) 这一行改成 m_x = excelapp.cells(2, 6) m_y = excelapp.cells(5, 10) 这一行去掉上面的dim m_y也可以删了

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息