ExcelVBAでファイルの名前をつけて保存
- ExcelVBAを使用して、現在開いているファイルから新しいファイルを作成し、データを転記する方法について困っています。
- ThisWorkbook.Pathを使用する方法についてわからず困っています。現在開いているファイルと同じフォルダ内に住所録フォルダを作成し、その中に新しいファイルを作成したいです。
- ExcelVBAを使ってファイルの名前をつけて保存する方法がわかりません。自分のパソコンでしかできないため困っています。
- ベストアンサー
ExcelVBAでファイルの名前をつけて保存
こんばんは！ Workbooks.Add ChDir "C:\Documents and Settings\test\My Documents\住所録" ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\test\My Documents\住所録\友達.xls", FileFormat _ :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False ActiveWindow.Close として現在開いているファイルから、新規ファイルを作成してデータを写しこみたいと考えているのですが、この書き方だと自分のパソコンでしか出来ないので困っています。 ThisWorkbook.Pathを使うんだろうと思うのですが、どの様に使えばよいのか判らず困っています。 現在開いているファイルと同じフォルダの中に住所録というフォルダを更に作成し、その住所録フォルダの中に新しいファイルを作りたいのですが。。 ご伝授願います。
- yuk777
- お礼率86% (183/212)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
- ベストアンサー
＞現在開いているファイルと同じフォルダの中に住所録というフォルダを更に作成 フォルダを作成するのは、こんな感じになります。 MkDir ThisWorkbook.Path & "\住所録" ＞その住所録フォルダの中に新しいファイルを作りたいのですが。。 Workbooks.Add ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\住所録\友達.xls" このようなマクロの場合、住所録フォルダが既に存在すると異常になりますので、その点の考慮が必要です。Dir関数を使用して、存在チェックをするのが普通です。"友達.xls"の存在チェックもすべきだと思います。
関連するQ&A
- ファイルの保存先を任意にしたい（マクロ）
エクセルのマクロです。 マクロを実行した時に、保存先とファイル名は任意に入力して（その部分だけは、マクロ実行者が入力して）、その後もマクロを実行させたいのですがどうすれば良いのでしょうか？ たとえば、 ActiveCell.FormulaR1C1 = "1" Range("B1").Select ChDir "C:\Documents and Settings\a\デスクトップ" ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\a\デスクトップ\ Book1.xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False Range("A2").Select ActiveCell.FormulaR1C1 = "2" Range("B2").Select ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\a\デスクトップ\ Book2.xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False Range("A3").Select ActiveCell.FormulaR1C1 = "3" Range("B3").Select ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\a\デスクトップ\ Book3.xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False Range("A4").Select ActiveCell.FormulaR1C1 = "4" Range("B4").Select 上記の場合は、保存先もファイル名もこちらが指定していますが、その部分だけは、マクロの実行者に任意指定及び入力させたいのです。 マクロ初心者なので、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ファイルの保存先のパス
マクロでデスクトップに保存させたいのですが、 ActiveWorkbook.SaveAs Filename:= _ "D:\Documents and Settings\●●●\デスクトップ\Book1.xls", FileFormat:=xlNormal _ , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False の●●●のように、私のユーザー名が入ります。 このファイルは色々な人に使ってもらいたいので、 LOCALみたいな意味合いの言葉を入れたいのですが、 なんと入れたら良いでしょうか？ ご存知の方いらっしゃいましたら宜しくお願いします。
- ベストアンサー
- Visual Basic
- マクロが思い通りに動きません
エクセルでマクロを使いボタンを 作りました。ボタンを押すとHDDとDVDに保存される仕組みになっています Sub DVD() ChDir "E:\" ActiveWorkbook.SaveAs Filename:=Format(Now, "yyyy-mm-dd(hh時mm分ss秒)"), FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False End Sub Sub HDD() ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\***\デスクトップ\ファイル名.xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False End Sub これだとDVDへ保存が上手くいきません。DVDからエクセルを開いて使えば問題ないのですが、デスクトップから開くと日付入りのデータがデスクトップに保存されてしまいます。 どうやって書き換えたらいいでしょうか
- ベストアンサー
- Visual Basic
- ファイル保存のマクロについて
ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\Owner\aaa\bbb\ccc\" & Range("k2").Value & ".xls", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False 上記のようにマクロを組みましたがうまく作動しません。 セル"ｋ2"の値は日付が入力されています。 その値が原因で読み取れないみたなのですが。 (セルの書式設定の日付で●月●日で設定しています)
- ベストアンサー
- その他(データベース)
- VBマクロで教えて下さい。
下記VBマクロで上書きしない時はマクロを終了させたいのですがこ指導をお願いします。 Sub Macro2() ' Macro2 Macro ' マクロ記録日 : 2012/9/3 ユーザー名 : HA社 ChDir "C:\Documents and Settings\6464552\デスクトップ" ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\6464552\デスクトップ\直送先部品出庫伝票.xls", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False Range("D42:E49").Select Selection.ClearContents Range("I32:J32").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\6464552\デスクトップ\PPSC部品出庫伝票.xls", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False Application.Quit End Sub
- ベストアンサー
- Visual Basic
- セルの日付をファイル名にするエクセルマクロ
お世話になります。 今のところ、下記のようにファイル名を保存しますが、 bk1.SaveAs Filename:= _ ""C:\Documents and Settings\garuderu\My Documents\" & "【Case】" & Year(dt) & Month(dt) & Day(dt) & "_HOP.xls", _ FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", _ ReadOnlyRecommended:= _ True, CreateBackup:=False bk1.Close SaveChanges:=False 月と日は一桁の場合、ファイル名の長さはばらばらで、できれば、 月と日が一桁のとき、0が入ればと思いつつ、解決はみつかりません。 誰かご存知の方がいらしたら、教えて"ぐう"ださい：） 宜しくお願いします。
- ベストアンサー
- Visual Basic
- Excel／VBAのファイル保存
いつもここでは大変お世話になっています。 以下のように名前をつけて保存をしているのですが、 同名のファイルがあった場合でも上書き確認せずに上書きをさせる方法を教えて下さい。 お願いします。 ActiveWorkbook.SaveAs Filename:= _ "\\PC名\ディレクトリ名\ファイル名.xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False
- ベストアンサー
- オフィス系ソフト
- マクロ 保存の仕方
' 指定の場所に保存する ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\Owner\デスクトップ\A\B\" & Replace(Range("k2").Value, "/", "") & ".xls", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False ActiveWorkbook.Close 上記のようにマクロを組みましたが、同じ名前で１回保存すると２回目からエラーします。 ２回目から保存名の後ろに(2)、３回目は(3)等を付けて保存したいのですが。
- ベストアンサー
- その他(データベース)
- Aのシートにデータがあり、BのシートからAのデータを読み込み、エクセル
Aのシートにデータがあり、BのシートからAのデータを読み込み、エクセル形式で表示するVBAで組まれたエクセルがあります。 Bに読み込まれたエクセルだけを、デスクトップに保存したいのです。 ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\gsoumu7.COMP\デスクトップ\最新ver\" & bkname & ".xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False 以前は動いていたのですが、しばらくぶりに動かしたら動かなくなってしまいました。 以前はOFFICE2000か2003で今は2007になっています。 大変困っています。どなたかお助けください。
- 締切済み
- Visual Basic
- 実行時エラー1004
下記マクロを実行するとＡ1に入力した文字に名前をつけて保存するような マクロをつくりましたが Ａ1に 「保存横一列」なら保存できますが 「保存（alt+エンター） セルに２行」 というように（alt+エンター）を入れて複数行にすると 「実行時エラー1004」が出てしまいます。 「保存セルに2行」というように１列にして保存したいのですが どのようにしたらいいのでしょうか？ よろしくお願いします。 Sub Macro1() Dim name As String name = Range("A1").Value ChDir "C:\Documents and Settings\E-MACHINE\デスクトップ" ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\E-MACHINE\デスクトップ\" & name & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False End Sub
- ベストアンサー
- オフィス系ソフト
お礼
ディレクトリの存在チェック。。。エラーが出たときの事も考えないといけないんですよね～。 とりあえずは、おかげで先に進むことが出来たので、とても感謝しています。 細かい質問をこれからもしますのでヨロシクお願いします。