Question

vb中导入excel表之后如何实现将单元格中的数值赋值给变量，以及如何将单元格中的字符串赋值给字符串变量。

例如单元格中都是数字的时候，单精度a=sheet1.cells（a,b),要加什么才能实现，还有比如单元格中是ssw，nne之类的字符串，如何赋值给单个变量，我要求的事这些字符串的ascii码，应该怎么弄。

Answer 1

Dim G_EXAPP As Excel.Application
Dim G_EXBOOK As Excel.Workbook
Dim G_ExcelFileName As String
Set G_EXAPP = New Excel.Application
G_EXAPP.Application.DisplayAlerts = False
G_ExcelFileName ="C:\XX.xls"
Set G_EXBOOK = G_EXAPP.Workbooks.Open(strFileName)
Dim SG_PGID As String
SG_PGID = G_EXAPP.Cells(2, 2)
Dim SGMoney as Double
SGMoney= G_EXAPP.Cells(22, 2)
参照写一下。

追问

Set G_EXBOOK = G_EXAPP.Workbooks.Open(strFileName)
这句运行怎么出错了，找不到“”，不知道为什么啊，我在磁盘c直接建了个叫XX.xls的excel。

追答

strFileName你没赋值？要么你的文件就找不到。你将错误信息帖个图

追问

strFileName不是返回最后一个\后面的文件的吗，还要怎么赋值。

追答

Set G_EXBOOK = G_EXAPP.Workbooks.Open(strFileName)
Set G_EXBOOK = G_EXAPP.Workbooks.Open(G_ExcelFileName )

Answer 2

你去百度vb操作excel源码，就可以了