UC知道VB EXCEL 张贴问题(PasteSpecial)
来源：百度知道 编辑：UC知道 时间：2024/05/12 01:11:48
xlSheetNew.Cells(2, 1).PasteSpecial xlPasteAll
上面这句编译出错:xlPasteAll变量未定义.
当我使用引用Microsoft Excel 9.0 Object Library的时候就正确,不引用就错误,我的程序不要引用的.
下面是具体代码:
Dim xlApp As Object
Dim xlBook As Object
Dim xlsheet As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
xlsheet.Range("A1", "A7")
xlSheetNew.Cells(2, 1).PasteSpecial xlPasteAll'编译出错
xlPasteAll值正确呀?
下面怎么写呀?
xlSheetNew.Cells(2, 1).PasteSpecial xlPasteAll
上面这句编译出错:xlPasteAll变量未定义.
当我使用引用Microsoft Excel 9.0 Object Library的时候就正确,不引用就错误,我的程序不要引用的.
下面是具体代码:
Dim xlApp As Object
Dim xlBook As Object
Dim xlsheet As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
xlsheet.Range("A1", "A7")
xlSheetNew.Cells(2, 1).PasteSpecial xlPasteAll'编译出错
xlPasteAll值正确呀?
下面怎么写呀?
xlSheetNew.Cells(2, 1).PasteSpecial xlPasteAll
你必须引用，哪有要了人家的闺女，不养人家的娘的？
晕。为什么不引用呢？xlPasteAll是在Microsoft Excel 9.0 Object Library中一个定义的常量= -4104。
那你把xlPasteAll 替换为 -4104看一下。