VB打开EXCEL文件的语句怎么写

如题所述

Dim xlTmp As Excel.Application
Set xlTmp = New Excel.Application
xlTmp.Workbooks.Open "C:\Book1.xls"
Dim xlSht As Excel.Worksheet
Set xlSht = xlTmp.Sheets(1)
ReDim Preserve Ucode2(50, 5)
For i = 2 To xlSht.Cells.Rows
Ucode2(i, 0) = xlSht.Cells(i, 1)
Ucode2(i, 1) = xlSht.Cells(i, 2)
Next
xlTmp.Workbooks.Close
xlTmp.Quit
温馨提示:内容为网友见解,仅供参考
无其他回答

vb怎么打开Excel文件并向特定的单元格填写内容excelvb打开文件
Set xlApp = CreateObject(\\"Excel.Application\\")'创建EXCEL对象 Set xlBook =xlApp.Workbooks.Open(\\"文件名\\")'打开已经存在的EXCEL工件簿文件 xlApp.Visible = True '设置EXCEL对象可见(或不可见)Set xlSheet =xlBook.Worksheets(\\"表名\\") '设置活动工作表 xlApp.Cells(row, col) =值 '...

总结:VBA是如何操作Excel的?
打开文件,用于output OpenfullNameForOutputAs#1 在上面的文件中输入hello Print#1,“hello”取得元素 Cells(1,c1)弹窗提示 SubClostAndSaveWorkbook()ActiveWorkbook.CloseSavechanges:=TrueEndSub0 然后其实vba大多数都是vb代码,虽然有一点点不一样,但是大多数都是相同的,例如for语句和if语句都是一样...

VB打开EXCEL文件,让EXCEL文件显示在最前面,且最大化。这样的VB代码如何...
Set xlapp = CreateObject("excel.application")Set xlbook = xlapp.Workbooks.Open("你要打开的文件路径和文件名 ")xlapp.Visible = True xlapp.WindowState = xlMaximized xlbook.activate End Sub

vb打开excel
一楼正确,如果你认为Dim ... As Excel.xxx不好记忆的话,完全可以 Dim objExcel As Object Dim objWorkBook As Object Dim objSheet As Object 通用。

VB 打开EXCEL
不用dim a 这句的 直接 private sub command1_click()shell ("F:\\新建 Microsoft Excel 工作表.xls ", vbNormalFocus)end sub 这样写就可以了哈!

在visual studio 2005中我想用vb打开excel2007
VB打开EXCEL的方法:Dim xlBook As Excel.WorkBook Set xlBook = App.Workbooks.Open("文件名")这种语法同样要求excel已经存在才能操作。Public xlApp As Excel.Application Public xlBook As Excel.Workbook Public xlChar As New Excel.Chart Public xlSheet As New Excel.Worksheet Set xlApp = New...

用VB打开一个Excel文件,这个文件名称中包含了单元格的内容?
你可以使用 Visual Basic for Applications (VBA) 来自动打开包含单元格内容的 Excel 文件。下面是一个示例代码,它可以帮助你实现这个目标:Sub OpenExcelFileWithCellContent()Dim filePath As String Dim fileName As String Dim cellContent As String ' 获取单元格的内容 cellContent = ...

VB编程打开和关闭EXCEL文件
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:\\...

VB打开EXCEL要求对象
Dim wBook As Workbook '创建一工作簿实例 Dim sht As Worksheet '创建一个表单(Sheet)set wbook=exlapp.workbooks.add '前面用了new关健字,所以不用建立excel.Application Set sht = xlBook.Worksheets(1)exlApp.Visible = True dim sFileName as String sFileName="文件名称"wBook.SaveAs ...

vb打开excel
VB的Shell函数,就是启动exe文件用的。其格式是:Shell(文件标识符[,windowstyle])例如:在我的计算机里启动excel 2010 Dim n n = Shell("C:\\Program Files\\Microsoft Office\\Office14\\excel.exe", 1)这里:C:\\Program Files\\Microsoft Office\\Office14\\excel.exe,是我计算机里EXCEL的安装路径 1 ...

相似回答