高考问答gbt18049:不能用VB向EXCEL中写入数据
来源：百度文库 编辑：高考问答 时间：2024/04/28 03:44:32
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
CopyFile App.Path & "\module.xls", App.Path & "\" & txt_num.Text & ".XLS", False
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open(App.Path & "\" & txt_num.Text & ".XLS")
xlSheet.Cells(4, 2) = cbo_typ.Text
为什么一到这一步就出错了，有没有谁能帮忙解答一下呀
加了Set xlSheet = xlBook.Sheets(1)也不行
后来发现不要CopyFile App.Path & "\module.xls", App.Path & "\" & txt_num.Text & ".XLS", False 就好了
可是我又需要实现复制功能，有什么其他办法吗
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
CopyFile App.Path & "\module.xls", App.Path & "\" & txt_num.Text & ".XLS", False
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open(App.Path & "\" & txt_num.Text & ".XLS")
xlSheet.Cells(4, 2) = cbo_typ.Text
为什么一到这一步就出错了，有没有谁能帮忙解答一下呀
加了Set xlSheet = xlBook.Sheets(1)也不行
后来发现不要CopyFile App.Path & "\module.xls", App.Path & "\" & txt_num.Text & ".XLS", False 就好了
可是我又需要实现复制功能，有什么其他办法吗
1。 在这行前加上：
Set xlSheet = xlBook.Sheets(1)
2。 把CopyFile 改成 FileCopy，去掉第3个参数
或者新建一个模块，在里面添加如下代码：
Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
说明
复制文件。与vb的filecopy命令相似
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数 类型及说明
lpExistingFileName String，源文件名
lpNewFileName String，目标文件名
bFailIfExists Long，如果设为TRUE（非零），那么一旦目标文件已经存在，则函数调用会失败。否则目标文件被改写