3

このコードを取得して、ファイルが開かれたディレクトリに保存しようとしています。現在、セルテキストでファイルを保存することができますが、デフォルトではc：/myドキュメントに保存したいと考えています。

これは私がこれまでに持っているものであり、ThisWorkbook.Pathをどこに追加するかわかりません

Sub Save()

 Dim flToSave As Variant
 Dim flName As String
 Dim flFormat As Long

 flFormat = ActiveWorkbook.FileFormat


 flName = Range("A1") & Range("A2").Text
 flToSave = Application.GetSaveAsFilename _
 (flName, filefilter:="Excel Files (*.xlsm), *.xlsm", _
 Title:="Save FileAs...")


 If flToSave = False Then
 Exit Sub
 Else

 Thisworkbook.SaveAs Filename:=flToSave, FileFormat:=flFormat
 End If

 End Sub
4

1 に答える 1

1

に変更GetSaveAsFilenameします

flToSave = Application.GetSaveAsFilename _
(ThisWorkbook.Path & "\" & flName, filefilter:="Excel Files (*.xlsm), *.xlsm", _
Title:="Save FileAs...")

これによりSaveAs、指定されたディレクトリでが開始されます

于 2012-10-16T08:23:54.083 に答える