vb 6.0读取excel文件
答案:3 悬赏:0 手机版
解决时间 2021-11-22 10:33
- 提问者网友:我的未来我做主
- 2021-11-21 23:15
vb 6.0读取excel文件
最佳答案
- 五星知识达人网友:夜风逐马
- 2021-11-21 23:31
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Dim ss As String
CommonDialog1.ShowOpen
Ain = CommonDialog1.FileName
If Ain = "" Then Exit Sub
Ain = "d:\A.xls"
Set xlBook = xlApp.Application.Workbooks.Open(Ain)
Set xlSheet = xlBook.Worksheets(1)
Max = 0
G = Val(Text1.Text)
ReDim B(G, 3)
ReDim Preserve StrC(G, 5)
ReDim StrD(G)
str = xlSheet.Cells(I, 2)追问有错误,这些代码是全写在command1的单击事件下吗?
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Dim ss As String
CommonDialog1.ShowOpen
Ain = CommonDialog1.FileName
If Ain = "" Then Exit Sub
Ain = "d:\A.xls"
Set xlBook = xlApp.Application.Workbooks.Open(Ain)
Set xlSheet = xlBook.Worksheets(1)
Max = 0
G = Val(Text1.Text)
ReDim B(G, 3)
ReDim Preserve StrC(G, 5)
ReDim StrD(G)
str = xlSheet.Cells(I, 2)追问有错误,这些代码是全写在command1的单击事件下吗?
全部回答
- 1楼网友:人類模型
- 2021-11-22 01:10
在[程序员]网站,有代码,查询一下即可!! www.csdn.net
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯