VB (Excel 巨集) 預設資料讀取及儲存路徑問題

頁: [1]

搗蛋旭 發表於 2014-10-22 05:30 PM

請問各位高手，小弟我碰到了一個資料讀取及儲存的問題，希望有高手可以協助解決，感謝！

我製作了一個Ecxel的資料整理巨集，主要是參考以下影片所製作的。
https://www.youtube.com/watch?v=vHv4Qq1mv50

依照影片製作方式是先開啟一個新的檔案，然後做儲存的動作，在讀取儲存資料夾的其他Excel檔案，語法如下：

' 導入檔案名稱
      Sheets("TotalFile").Select
      Range("A1:N1").Select
      Selection.FormulaArray = "=ALLFILES"
      Selection.Copy
      Range("A2").Select
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=True
      Rows("1:1").Select
      Application.CutCopyMode = False
      Selection.Delete Shift:=xlUp
      Range("A1").Select

但是如果今天我把檔案製作好了，開啟後再跑這段語法會出現錯誤，錯誤原因是因為他跑去讀取了我的文件夾裡面的資料。
這個問題讓我當每次開啟檔案後需要按一次另存新檔它會跑出開啟的資料夾，在執行這段讀取就會正常了。
請問是否有語法可以解決當我開啟後，執行巨集時就會自動去讀取檔案所放置的位置(相對路徑不指定路徑)？{:36:}

我會發現他預設的資料夾在我的文件夾內是因為我發現如果不指定儲存位置，他所儲存的路徑就在我的文件夾內，就算用開啟檔案的方式讓它不指定路徑儲存，就會跑到我的文件夾了，再麻煩各位高手解答，感謝！

自動儲存的語法我使用如下：
' 另存新檔
      Dim FileName As String
      FileName = "TotalProject" & Format(Date, "mm-dd") & ".xlsm"
      Application.DisplayAlerts = False
      ThisWorkbook.SaveAs FileName
      Application.DisplayAlerts = True

小的就先行叩謝各位高手，麻煩了，感謝！
...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div><div></div>

cinta3344 發表於 2014-11-6 01:50 PM

本帖最後由 cinta3344 於 2014-11-6 01:51 PM 編輯

開檔的地方沒看到你開檔相關語法，一般用
workbooks.open filename

存檔
Path="c:"
ThisWorkbook.SaveAs Path & Filename

補充內容 (2014-11-7 01:11 PM):
才兩行你也要展現你板主的威信是嗎？那這個版就留給你自爽好了

頁: [1]

伊莉討論區's Archiver

VB (Excel 巨集) 預設資料讀取及儲存路徑問題