[發問] EXCEL VBA路徑問題

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

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2015-4-16 13:38 | 只看該作者

回復 1# minture3

試試看

Sub test()
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "\\Nsa310\估價備份\備-電腦估價"
.Show
'找出路徑
On Error GoTo myLINE
myFile = .SelectedItems(1)
End With
Exit Sub
myLINE:
MsgBox "已取消"
End Sub

複製代碼

PKKO

PKKO

　暱稱: PKKO

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

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2015-4-16 13:40 | 只看該作者

回復 1# minture3

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

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

PKKO

帖子: 50
主題: 8
精華: 0
積分: 54
點名: 0
作業系統: windows7
軟體版本: EXCEL 2007
閱讀權限: 20
性別: 男
註冊時間: 2015-3-24
最後登錄: 2015-7-13

4^#

發表於 2015-4-16 16:13 | 只看該作者

本帖最後由 minture3 於 2015-4-16 16:16 編輯

回復 2# PKKO
感謝回覆!!
依您所以提供的程式碼得到的會是這個

myFile = .SelectedItems(1)
請教這一段的意思是?

myFile = Application.GetSaveAsFilename

不過我希望得到的是

1.png (87.76 KB)

帖子: 50
主題: 8
精華: 0
積分: 54
點名: 0
作業系統: windows7
軟體版本: EXCEL 2007
閱讀權限: 20
性別: 男
註冊時間: 2015-3-24
最後登錄: 2015-7-13

5^#

發表於 2015-4-16 16:19 | 只看該作者

請教這一段的意思是?
myFile = .SelectedItems(1)
我有試著把他改成以下這段
myFile = Application.GetSaveAsFilename
不過會變成先出現上圖的對話框取消後在出現下圖的對話框
不過我希望得到的是只有下圖這個

PKKO

　暱稱: PKKO

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

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2015-4-16 18:46 | 只看該作者

回復 5# minture3

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

PKKO

帖子: 50
主題: 8
精華: 0
積分: 54
點名: 0
作業系統: windows7
軟體版本: EXCEL 2007
閱讀權限: 20
性別: 男
註冊時間: 2015-3-24
最後登錄: 2015-7-13

7^#

發表於 2015-4-17 16:43 | 只看該作者

回復 6# PKKO

myFile =Application.GetSaveAsFilename
檔案的路徑好像是對了但是點了儲存之後檔案並沒有存進去

剛剛單獨試了一下Application.GetSaveAsFilename
會彈出另存的對話框
但是按了儲存之後並沒有值型儲存的動作~~
不知道是不是我用法有誤

Private Sub CommandButton10_Click()
Application.GetSaveAsFilename
End Sub

複製代碼

diolin

帖子: 65
主題: 0
精華: 0
積分: 64
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2011-11-10
最後登錄: 2019-2-27

8^#

發表於 2015-4-17 17:17 | 只看該作者

回復 1# minture3

chdir 在 windows 7 上會有點問題, 後來我都改用 API 來指定

Private Declare Function SetCurrentDirectoryA Lib "kernel32" (ByVal lpPathName As String) As Long

SetCurrentDirectoryA "\\Nsa310\估價備份\備-電腦估價"

PKKO

　暱稱: PKKO

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

論壇榮譽勳章論壇贊助勳章

9^#

發表於 2015-4-17 21:12 | 只看該作者

回復 7# minture3

我以為你知道用法

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

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

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

所以你需要的程式碼如下

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

PKKO

帖子: 50
主題: 8
精華: 0
積分: 54
點名: 0
作業系統: windows7
軟體版本: EXCEL 2007
閱讀權限: 20
性別: 男
註冊時間: 2015-3-24
最後登錄: 2015-7-13

10^#

發表於 2015-4-20 15:51 | 只看該作者

回復 9# PKKO

感謝PKKO

If Application.GetSaveAsFilename("\\Nsa310\估價備份\CWCO\備-電腦估價\") Then
Dim myName As String
Sheets("窗").Select
myName = Range("AB4") & "-" & Range("AB5") & "-" & Range("AB6")
ActiveWorkbook.SaveAs Filename:=myName, FileFormat:=xlExcel8, Password:="1273"
Else
MsgBox ("已取消")
End If

複製代碼

基本上功能差不多接近我要的了
不過奇怪的是執行這一行時
Application.GetSaveAsFilename ("\\Nsa310\估價備份\CWCO\備-電腦估價\")
可以指定存檔的路徑
不過他一定會彈出這個視窗

不管按確定還是取消最後還是靠這行另存檔案
ActiveWorkbook.SaveAs Filename:=myName, FileFormat:=xlExcel8, Password:="1273"
雖然接近我要的了不過感覺就是怪怪的!!~

2.png (74.09 KB)