如何实现自动运行数据刷新

zhanguoru

不知道，这个宏代码能不能帮到您；

ActiveWorkbook.RefreshAll

zhanguoru

我试了一下，在OPEN试中使用Refreshall,电脑还是会要求您提供源文件的位置……

zhanguoru

我试了一下，在OPEN事件中使用refreshall,EXCE还是会要求的您提供源文件的位置，应该还是不能实现全自动……

zhanguoru

看您如此坚决，再试一下，应该不要模拟吧！每次开启都导入一次，不知这样是不是您期望的结果，我是用TXT作为来测试的，在workbook的OPEN事件中加如下代码（不需要记，录制代码就可以）：

Private Sub Workbook_Open()

   
    Cells.Select
    Selection.ClearContents
   
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\zhang.gu\Desktop\New Text Document.txt", Destination:=Range( _
        "$A$1"))
        .Name = "New Text Document"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1252
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
   
   
   

    ActiveWorkbook.Save
    ActiveWorkbook.Close
   
End Sub