![]() |
#2
风吹过b2016-06-02 15:16
|
但根据在网上找到的代码写,报了错
麻烦大神帮我看一下,谢谢!!
首先在工程-引用中添加了Microsoft Excel 14.0 Object Library
然后新建了一个模块,问题是写到Set xlApp = CreateObject("Excel.Application") 这句就开始报错,
SET上的错误显示“应为声明”,xlApp上的错误显示应为语句结束。
请问是为什么呢


Imports Microsoft.Office.Interop
Module TableFunction
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")