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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

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

[發問] EXCEL VBA路徑問題

請教各位
小弟在自訂表單中做了一個commandbutton並且指定程式如下:

Private Sub CommandButton1_Click()
ChDir "\\Nsa310\估價備份\備-電腦估價"
On Error GoTo myLINE
myFile = Application.GetSaveAsFilename
Exit Sub
myLINE:
MsgBox "已取消"
End Sub

複製代碼

主要是用來快速指向固定的存檔位置→"Nsa310\估價備份\備-電腦估價"
但是有時候路徑會自己跑掉變成指向到桌面
請問是否有解?

樓主熱帖

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

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

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

12^#

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

回復 10# minture3

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

PKKO

TOP

minture3

中學生 Rank: 2

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

11^#

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

回復 8# diolin

請教diolin
Private Declare Function SetCurrentDirectoryA Lib "kernel32" (ByVal lpPathName As String) As Long
SetCurrentDirectoryA "\\Nsa310\估價備份\備-電腦估價"

這個的用法是??

TOP

minture3

中學生 Rank: 2

帖子: 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)

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 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

TOP

diolin

中學生 Rank: 2

帖子: 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\估價備份\備-電腦估價"

TOP

minture3

中學生 Rank: 2

帖子: 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
會彈出另存的對話框
但是按了儲存之後並沒有值型儲存的動作~~
不知道是不是我用法有誤