
谁知道怎样在VB调用已经存在的EXCEL表格,其余的操作就完全在EXCEL中完成知道的朋友给一个实例!拜托了
2个回答
展开全部
方法一:
用 OLE 控件试试?
方法二:
用API函数,直接打开Excel文件
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hWnd As Long, ByVal lpszOp As _
String, ByVal lpszFile As String, ByVal lpszParams As String, _
ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long
Function StartDoc(DocName As String) As Long
Dim Scr_hDC As Long
Scr_hDC = GetDesktopWindow()
StartDoc = ShellExecute(Scr_hDC, "Open", DocName, "", App.Path, 1)
End Function
调用 方法:
StartDoc "C:\1.xls"
路径你可以用一个公共对话框获取
用 OLE 控件试试?
方法二:
用API函数,直接打开Excel文件
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hWnd As Long, ByVal lpszOp As _
String, ByVal lpszFile As String, ByVal lpszParams As String, _
ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long
Function StartDoc(DocName As String) As Long
Dim Scr_hDC As Long
Scr_hDC = GetDesktopWindow()
StartDoc = ShellExecute(Scr_hDC, "Open", DocName, "", App.Path, 1)
End Function
调用 方法:
StartDoc "C:\1.xls"
路径你可以用一个公共对话框获取
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
先在工程--引用中选中microsoft excel,然后用下列代码可以打开电子表格文件:
Dim mxlApp As Excel.Application
Dim mxlBook As Excel.Workbook
Dim mxlSheet As Object
Dim sSource As String
Set mxlApp = New Excel.Application
Set mxlApp = CreateObject("Excel.Application")
sSource = "路径及文件名"
mxlApp.Visible = True
Set mxlBook = mxlApp.Workbooks.Open(sSource)
Set mxlSheet = mxlBook.Worksheets(1)
Dim mxlApp As Excel.Application
Dim mxlBook As Excel.Workbook
Dim mxlSheet As Object
Dim sSource As String
Set mxlApp = New Excel.Application
Set mxlApp = CreateObject("Excel.Application")
sSource = "路径及文件名"
mxlApp.Visible = True
Set mxlBook = mxlApp.Workbooks.Open(sSource)
Set mxlSheet = mxlBook.Worksheets(1)
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询