求Visual Basic调入excel表格的程序代码

2025-02-24 12:17:49

推荐回答（2个）

回答1：

Private Sub Command1_Click()
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlapp = CreateObject("excel.application")
Set xlbook = xlapp.Workbooks.Add
Set xlsheet = xlbook.Worksheets("Sheet1")

此处是你的处理代码。

xlbook.SaveAs App.Path & "\" & "adbc.xls"
xlbook.Close
Set xlbook = Nothing
xlapp.Quit
Set xlapp = Nothing
End Sub
希望对你有帮助。

回答2：

这个嘛，书上有