Question

如何将excel中的数字赋值给变量

Public a as integer
a = Worksheets("sheet1").Range("A1").Value

为什么报"A1"外部无效过程，应该怎样赋值，假设我要将A1中的内容转换成整形赋给变量

Answer 1

dim ExcelAPP as object
DIM wbk
DIM BianLiang
Set ExcelAPP= GetObject("", "Excel.Application")
SET wbk=ExcelAPP.Workbooks.Open("H:\2011数据\2011SSC.xls")
Bianliang=wbk.sheets("sheet1").rang("A1")
wbk.close
set wbk=nothing
set Excelapp=nothing
--
其他：
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)
参照写一下。

追问

这是什么呀，答非所问

Answer 2

vb系语言里面，用cint()函数可以将其它类型转为整数型

追问

我不用转换整数，在A1的属性里我已经设置了是整数，如果不是整数都输入不了，也就是说A1的值肯定是整数，我问的是赋值问题，变量的类型都是对的

Answer 3

你没有sheet1这个工作表吗？确认下。

追问

我有sheet1这个工作表，要是没有表应该不会报“外部无效过程”

追答

还是贴出来完整代码吧，必要时，截图显示工作表标签。