返回列表 上一主題 發帖

[發問] EXCEL VBA路徑問題

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 2015-4-16 13:38 | 顯示全部帖子
回復 1# minture3

試試看
  1. Sub test()
  2.     With Application.FileDialog(msoFileDialogFolderPicker)
  3.         .InitialFileName = "\\Nsa310\估價備份\備-電腦估價"
  4.         .Show
  5.         '找出路徑
  6.         On Error GoTo myLINE
  7.         myFile = .SelectedItems(1)
  8.     End With
  9.     Exit Sub
  10. myLINE:
  11.     MsgBox "已取消"
  12. End Sub
複製代碼
PKKO

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2015-4-16 13:40 | 顯示全部帖子
回復 1# minture3

你有時候會指向桌面的原因是因為,您原本指定儲存位置的這行程式碼完全沒用到

他內建的指定儲存位置為(最後一次另存新檔的位置)
PKKO

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2015-4-16 18:46 | 顯示全部帖子
回復 5# minture3

試試看
   myFile =Application.GetSaveAsFilename( "\\Nsa310\估價備份\備-電腦估價")
PKKO

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
4#
發表於 2015-4-17 21:12 | 顯示全部帖子
回復 7# minture3


    我以為你知道用法

myFile =Application.GetSaveAsFilename( "\\Nsa310\估價備份\備-電腦估價")

這行程式碼只是用來告訴你:另存新檔的位置以及檔案名稱

並不會實際上真的執行另存新檔的動作

所以你需要的程式碼如下

    myFile = Application.GetSaveAsFilename("\\Nsa310\估價備份\備-電腦估價")
    ActiveWorkbook.SaveAs myFile & "xlsx"'才可儲存至你指定的檔案位置,後面的"xlsx"是EXCEL副檔案名稱,你也可以換成"xls","xlsm"
PKKO

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
5#
發表於 2015-4-20 19:24 | 顯示全部帖子
回復 10# minture3


    我不曉得VBA有沒有可以透過瀏覽視窗之後直接儲存的程式碼
但實際操作的時候,完全感覺不到差異
因為點選完畢=產生路徑
將活頁簿儲存新檔案(用產生的路徑),你不會感覺到有任何差異,就好像點了就儲存一樣!
PKKO

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題