Question

EXCEL vba用代码从多个文件导入数据问题

我自己写的代码，原来运行没问题，重新安装的系统结果无法运行了，只能打开第一个文件，然后就报错了，原来也出现过这个问题，改了excel设置，就ok，这次改半天也不行，请高手指点一下

代码片段：
Dim ymd
Dim weather As String
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim sheet As Excel.Worksheet
Set xlApp = New Excel.Application

For r = 0 To 6
ymd = Format(MonthView1.SelStart + r, "m.d")
Set xlBook = xlApp.Workbooks.Open(strwz + "\" + ymd + "运营生产日报.xls")
Set sheet = xlBook.Worksheets("汇总")
next

Answer 1

建议把整体的代码发过来，

必要的时候把工作表也提供下，

这个代码的片段，没法调试，

不知道你的变量是如何定义的，比如

strwz、ymd、MonthView1.SelStart 

    Dim ymd
    Dim weather As String
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim sheet As Excel.Worksheet
    Set xlApp = New Excel.Application
    For r = 0 To 6
        ymd = Format(MonthView1.SelStart + r, "m.d")
        Set xlBook = xlApp.Workbooks.Open(strwz + "\" + ymd + "运营生产日报.xls")
        Set sheet = xlBook.Worksheets("汇总")
    Next

追问

遇到过这个问题，我改了excel的设置，就ok了，所以我觉得应该是设置的问题，有什么相关设置会影响吗

追答

不太清楚你的代码设计整体思路和逻辑，
也看不到你的excel设置的情况，
不知道你的表结构、代码用途，
也不知道你说的报错是什么错误，没有消息号，看不到提示；
所以已知条件都不知道的前提下，我如果告诉你是哪些设置影响了你的运行结果，那不是成了胡扯了么？

追问

可以留个邮箱吗，我把文件发给你