返回列表下一主題上一主題發帖

[發問] 請問如何更改VB的連結檔案路徑

v60i

中學生 Rank: 2

帖子: 106
主題: 25
精華: 0
積分: 141
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-10-27
最後登錄: 2016-4-10

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-12-27 06:34 | 顯示全部帖子

[發問] 請問如何更改VB的連結檔案路徑

這個VBA功能是將多個TXT內容全部會集到同一個EXCEL中
但是這程式必須跟TXT在同一個目錄
我試著修改成把程式放在C:\指定匯集D:\中的TXT
可是都沒成功
請問要怎麼修改才OK??
謝謝

Sub 匯入文字檔()
Dim xFile, uFile, uHead As Range, Jm&, Km&, X, xT, xL
Range("A:A").Clear '清除舊匯入資料
'-----------------------------------------------------
Application.ScreenUpdating = False
Do
If xChk = 0 Then
   xFile = Dir(ThisWorkbook.Path & "\*.txt")
   If xFile = "" Then MsgBox "※找不到 TXT 檔案！　", 0 + 16: Exit Sub
   xChk = 1
Else
   xFile = Dir
   If xFile = "" Then Exit Do
End If
'----------------------------------------------
uFile = ThisWorkbook.Path & "\" & xFile
Set uHead = Range("A65536").End(xlUp)
If uHead <> "" Then Set uHead = uHead(3, 1)
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & uFile, Destination:=uHead)
      .AdjustColumnWidth = False
      .TextFileColumnDataTypes = Array(1)
      .Refresh BackgroundQuery:=False
      .Delete
End With
uHead.Interior.ColorIndex = 6
'每筆第一格加〔黃色〕底
NEXT_LINE:
Loop
'-------------------------------------------------------
Application.ScreenUpdating = True
MsgBox "～～匯入完成～～　"
End Sub