
お世話になります。
VBA初心者なりにマクロの自動記録などで作業しておりますが、自動記録でできない作業を一つ教えてください。
現在作業しているフォルダは、Activeworkbook.Pathなどで指定できますが、その一つ上の階層に保存したいという場合、どう指定すればよいのでしょうか? 自動保存だと"Documentos and Settinng~"などから始まるファイルパスになりますが、ファイルを保存するフォルダは各人によってまちまちですので、自分が保存したフォルダの一つ上という指定をしたいのです。そのような方法があれば教えてください。
よろしくお願いいたします。
No.6ベストアンサー
- 回答日時:
回答番号:No.5 merlionXXです。
> プロシージャの呼び出しが不正と出ます。
それは、ActiveWorkbook.Path が取得できない、つまりまだ保存前の新規BOOKで実行したせいではないかと思います。
エラーを回避するようにしてみました。
If ActiveWorkbook.Path = "" Then
x = ""
Else
x = Left(ActiveWorkbook.Path, InStrRev(ActiveWorkbook.Path, "\") - 1)
End If
ActiveWorkbook.SaveAs Filename:=x & "\test.xls"
なるほど、まだ保存前のBookじゃActiveWorkbook.Pathが取得できないはずですね。さすがのご指摘、ありがとうございます。
しかしエラー回避のコードでやってみましたが、X=""の時、testファイルはドライブの一番上の階層に保存されてしまいました。
そこで、最初に
ChDir Left(ActiveWorkbook.Path, InStrRev(ActiveWorkbook.Path, "\") - 1)
でPathを取得しといてから作業するとうまくいきました。
わずか1行で取得できたので、こちらの記述を使用したいと思います。
おせわになりました。ありがとうございました。
No.5
- 回答日時:
> Msgboxでは、確かに一つ上の階層が取得できています。
しかし、そこに保存させるところができません。#2 merlionXXです。
取得できれば保存は簡単だと思いますが・・・・。
ActiveWorkbook.SaveAs Filename:=Left(ActiveWorkbook.Path, InStrRev(ActiveWorkbook.Path, "\") - 1) & "\test.xls"
この回答への補足
んー、残念ながらうまくいきません。
プロシージャの呼び出しが不正と出ます。
何か、根本的な間違いをしているのでしょう。折角教えていただいたのに申し訳ないです。
No.4
- 回答日時:
>の前に上記の記述をしただけではいけないのでしょうか?。
だめです。
保存先を指定する場合は、ファイル名の前にパス名も一緒に指定します。
Dim TmpPath As String
TmpPath = ThisWorkbook.Path
If InStrRev(TmpPath, "\") <= 3 Then
TmpPath = Left(TmpPath, 2)
Else
TmpPath = Left(TmpPath, InStrRev(TmpPath, "\"))
End If
ActiveWorkbook.SaveAs Filename:=TmpPath & "\test.xls"
たびたびのご回答ありがとうございました。
無事、目的のものができました。
自分でも作れるように、精進していきます。
本当にありがとうございました。
No.3
- 回答日時:
こんなのでも。
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
MsgBox FSO.getparentfoldername(ThisWorkbook.Path)
Set FSO = Nothing
No.2
- 回答日時:
Sub test()
MsgBox Left(ActiveWorkbook.Path, InStrRev(ActiveWorkbook.Path, "\") - 1)
End Sub
で取得できました。
この回答への補足
早速のご回答ありがとうございます。
Msgboxでは、確かに一つ上の階層が取得できています。しかし、そこに保存させるところができません。
上記のあとに
ActiveWorkbook.SaveAs Filename:="test.xls", FileFormat _~
を書くだけではだめなんでしょうね。
No.1
- 回答日時:
>どう指定すればよいのでしょうか?
取得したパスから文字列関数を使って必用な文字列を取出します。
Dim TmpPath As String
TmpPath = ThisWorkbook.Path
Debug.Print TmpPath
If InStrRev(TmpPath, "\") <= 3 Then
TmpPath = Left(TmpPath, 2)
Else
TmpPath = Left(TmpPath, InStrRev(TmpPath, "\"))
End If
Debug.Print TmpPath
この回答への補足
早速のご回答ありがとうございます。
試してみましたが、ドライブの最初の階層に保存されてしまいます。私が基本的なことが分かっていないからだと思いますが。
ActiveWorkbook.SaveAs Filename:="test.xls", FileFormat _
の前に上記の記述をしただけではいけないのでしょうか?。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/01/12 16:58
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/20 10:00
- PDF PDFを自動添付したメールを送信してくれるツールを探しています。 2 2023/02/07 15:19
- Access(アクセス) エクセルのマクロについて教えてください。 2 2023/02/03 16:07
このQ&Aを見た人はこんなQ&Aも見ています
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
EXcelのマクロで相対パスでファイルを開く
その他(Microsoft Office)
-
ActiveWorkbook.Pathの一つ上
PowerPoint(パワーポイント)
-
-
4
【VBA】マクロの入ったファイルと同じフォルダに,出力したファイルを保存するコードについて
Visual Basic(VBA)
-
5
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
6
ActiveWorkbook.Pathの一つ下のフォルダ
Excel(エクセル)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
9
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
10
【Excel VBA】マクロでExcel自体を終了させたい
Excel(エクセル)
-
11
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
12
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
13
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
14
【マクロ】名前を保存する際に、同じファイルがあった場合に、メッセージを表示
Excel(エクセル)
-
15
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
16
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
17
エクセルVBAでブックを相対パスで保存する
Excel(エクセル)
-
18
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
19
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
20
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルvbaでdocuworksprinter...
-
Excel 相対パス
-
実行中のASPファイル名(自ファ...
-
VB6.0のマルチセレクトダイアロ...
-
エクセルVBAで一つ上の階層...
-
コマンドプロンプトでファイル...
-
VBAでパワーシェルを実行したい...
-
VB2005 でパス名が誤っていない...
-
VBAのGetOpenFilenameについて
-
Docker の nginx-proxy エラー...
-
c言語コンパイル時にこのよう...
-
Windows PowerShellでscoopコマ...
-
【VBA】複数のtxtファイルから...
-
ネットワーク間のファイル参照...
-
C#で、リンク先の画像自動保存...
-
実行ファイルのパスを取得したい
-
android Javaの画像表示について
-
パス名を調べるには?
-
パワーポイントのpptファイ...
-
エクセル2000VBAで質問です。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルvbaでdocuworksprinter...
-
エクセルVBAで一つ上の階層...
-
xcopyコマンドの進行状況を表示...
-
Excel 相対パス
-
実行ファイルのパスを取得したい
-
コマンドプロンプトのコピー関...
-
【VB.NET】App.configにファイ...
-
エクセルのマクロで特定フォル...
-
VBA★PDFをPDFアプリで印刷し...
-
ExcelVBAの使い方 ¥の使い方...
-
fopenでのパス指定
-
ExcelのVBAで上書き保存を確...
-
EXCEL(VBA)で指定フォルダ内の...
-
C#でのProcess.Startと変数path
-
【VBA】ExcelマクロでCSVファイ...
-
VBAでパワーシェルを実行したい...
-
A列に記載されているフォルダ...
-
初心者powershellのPS1ファイル...
-
Eclipse
-
VBAとロングファイル名
おすすめ情報