Set xlBook = xlApp.Workbooks.Open("c:\1.xls") '打开已经存在的EXCEL工件簿文件 xlApp.Visible = True '设置EXCEL对象可见（或不可见）Set xlSheet = xlBook.Worksheets("sheet1") '设置活动工作表 msgbox xlsheel.cells(1,1) '读取单元格（1，1的值）xlSheet.Cells(1, 1) = "cg...
excel_sheet.Range("A3").Value = excel_sheet.Range("A1").Value + excel_sheet.Range("A2").Value '计算 '''读取数据到变量 x = excel_sheet.Range("A2").Value ' 把单元格"A2"里的数据读取出来 '关闭Excel文件,注意下面步骤很重要,不能少!!!Set excel_sheet = Nothing excel_...
For i = 1 To ExcelTable.Application.Worksheets.Count '获得工作表数目 Data = ExcelTable.Application.Worksheets(i).UsedRange.Value '获取每个工作表的数据 DataType = VarType(Data) '跳过没有数据的空表 Select Case DataType Case vbArray + vbVariant Call CreateGrid(i, Data) ...
'引用：'添加对该对象的引用 工程菜单-->引用，找到 Microsoft Scripting Runtime '引用microsoft Excel 14.0 object library 'Dim elApp As Excel.Application Dim elBooks As Excel.Workbook Dim ekSheet As Excel.Worksheet Dim TblMap_Card '创建一个变量 Private Sub Command1_Click()Dim i ...
xlApp.Visible = True '设置EXCEL对象可见（或不可见）Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表 xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值 变量=xlSheet.Cells(row,col) '将单元格(row,col)中的值读取到一个变量 xlSheet.PrintOut '打印工作表 xlsBook.Save...
Private Sub Form_Load()Dim oexcel, oworkbooks, newbook, newsheet, s As String Set oexcel = CreateObject("Excel.application")Set oworkbooks = oexcel.workbooks Set newbook = oworkbooks.open("c:\Allsales.xls")Set newsheet = newbook.worksheets(1)s = newsheet.cells(1, 1)MsgB...
我用的textbox,你也可以改成你的那种控件,这个是返回在一个工作簿中的每个工作表中找到的第一个,如果要返回所有找到的,也可以修改.希望可以帮到你.我测试是OK的.Private Sub CommandButton2_Click()on error resume next '防止你要输入的a这个表未打开时报错.Application.ScreenUpdating = False Dim ...
直接读取就可以了（我刚才试过）比如：i = Sheet4.Range("E10").Value 我的sheet4单元格E10就是公式
首先在工程中引用“MicroSoft Excel 11 Object Library”dim xls As Workbook '定义工作表对象 dim XlsApp As New Excel.Application '定义EXCEL应用程序对象 Set xls = XlsApp.Workbooks.Open(App.Path & "\1x.xls") '打开工作簿 XlsApp.Visible = True xls.Sheets("zxs").Activate ...
看这个方法能否帮到你：sub aa()dim xrng as string xrng = inputbox("请输入单元格，如c5")range(xrng).activate end sub