- ベストアンサー
エクセルのファイルを、A2セルに入っている日付をファイル名として、保存したい。
エクセルのＶＢＡでファイルに名前を付けて、指定場所に保存したいのですが、過去の質問を読んでもよく分からなかったので教えてください。 Ａ２セルに、2007/07/26 という日付が入っています。 この日付をファイル名として保存したいのですが、日付の形式は20070726とか、070726にしたいです。 ファイルの保存場所パスは、例えば、 S:\AAA\BBB\CCC\DDD というフォルダの中です。 ActiveWorkbook.SaveAs のあとにどのように続ければよいのでしょうか？ 丸投げで申し訳ありませんがよろしくお願いいたします。
- yuzushoyu
- お礼率55% (5/9)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
Sub test1() Dim x As String x = Format(Sheets("Sheet1").Range("A1"), "YYYYMMDD") & ".xls" ActiveWorkbook.SaveAs Filename:="S:\AAA\BBB\CCC\DDD\" & x ActiveWorkbook.Close End Sub Sドライブってはじめてみましたが、こんな感じでしょうか。
関連するQ&A
- 【エクセル】空セルを埋める方法
お世話になります。 下記のような表があります。 １行目：AAA,BBB,CCC,DDD ２行目：空セル,BBB,CCC,DDD ３行目：空セル,BBB,CCC,DDD ４行目：aaa,BBB,CCC,DDD ５行目：空セル,BBB,CCC,DDD ・・・ こんなパターンの行が結構あります。 空セル部分を下記のように埋めたいのですが １行目：AAA,BBB,CCC,DDD ２行目：AAA,BBB,CCC,DDD ３行目：AAA,BBB,CCC,DDD ４行目：aaa,BBB,CCC,DDD ５行目：aaa,BBB,CCC,DDD てっとり早く埋める方法ありませんか？ いまは、【ctrl+↓】 ⇒【↑】⇒【ctrl+D】を延々繰り返しています。 宜しくお願いいたします。
- ベストアンサー
- その他MS Office製品
- エクセルVBAでの文字列抽出とセルへの出力
エクセルVBAで文字列を検索して、検索した文字列を他のセルへ出力する方法を探しております。状況を図で説明すると、 A1セル：aaa\bbb\item1\ddd A2セル：aaa\bbb\ccc\item2\ddd A3セル：aaa\bbb\ccc\ddd\item3\eee このような状態からitemを検索して、B1セルに B1セル：item1 B2セル：item2 B3セル：item3 と表示させたいです。エクセルVBA初心者なものでRegExpを使うのかな、というところまではたどり着きましたが、そこから先にすすめません。 何か良い方法をご存知の方、教えていただきたいです。よろしくお願いいたします。
- 締切済み
- オフィス系ソフト
- ファイル保存のマクロについて
ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\Owner\aaa\bbb\ccc\" & Range("k2").Value & ".xls", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False 上記のようにマクロを組みましたがうまく作動しません。 セル"ｋ2"の値は日付が入力されています。 その値が原因で読み取れないみたなのですが。 (セルの書式設定の日付で●月●日で設定しています)
- ベストアンサー
- その他(データベース)
- 日付を入力したセルをファイル名にして保存するには
こんにちは。ＶＢＡ 初心者です。 あるセルに日付を入力しています。 そのセルは書式設定の表示形式・日付で「2001/3/14」と入力した時に、「2001年3月14日」と表示される様に設定しています。 そしてこのファイルをマクロで名前をつけて保存するとき、上記のセル（の値）をファイル名したいのですが、2001\3\14と認識され、エラーが出ます。 セルに日付を入力する時に、出来るだけかな入力はせず、日付をファイル名にして保存するにはどういう方法があるでしょうか。 わかりにくい説明で申し訳ありません。ウィンドウズＸＰ・エクセル2003です。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルでセル値をファイル名にして保存しようと思っています。
エクセルでセル値をファイル名にして保存しようと思っています。 エクセル2003では以下の方法でセル値を取得して保存しています。 'Cell値を取得 strName2 = Sheets("#######").Range("A1").Value strName3 = Sheets("*******").Range("B2").Value 'strName2の値が空の場合、現在のブック名を代入 If strName2 = "" Then strName = ThisWorkbook.Name 'セル値の結合 sName = strName3 + strName2 '名前を付けて保存] ダイアログ ボックスを表示 fName = Application.GetSaveAsFilename(InitialFileName:=sName, fileFilter:="Excel(*.xls), *.xls") 'ファイル名を取得したら保存 If fName <> False Then ActiveWorkbook.SaveAs fName 同様の操作を2007以降で「マクロを有効にして保存」を行いたいのですが、どの様にすればいいのでしょうか？ （自動保存では以下の様になる状態の事です。） ActiveWorkbook.SaveAs Filename:="#:\*******.xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 2007の時の「'名前を付けて保存] ダイアログ ボックスを表示」の方法が分かりません。 共通の命令文では出来でしょうから、最終的にはエクセルのバージョンを取得して、IFで分岐させようと思っています。 宜しくお願い致します。
- ベストアンサー
- Visual Basic
- シンクライアントでのVBAによるファイル保存
ExcelのテンプレートファイルにVBAマクロを記述しています。 VBAにより新しいブックを開き、データを作り込んだ後、テンプレートファイルが置かれているフォルダに保存するマクロを作成しました。 リッチクライアント上では問題なく動くのですが、シンクライアント上で実行すると、 ActiveWorkbook.SaveAs Filename:='フルパスのファイル名' ※フルパスのファイル名は、"C:\folder\file.xlsx"というような形式になっています。 のところでエラーになってしまいます。 パス付きのファイル名について、作法があるようでしたらお教えいただけますか。 よろしくお願い致します。
- 締切済み
- Excel（エクセル）
- Excel VBA サブディレクトリの取得について
Excel VBA についての質問です。 私は、VBAの初心者です。 フォルダ選択ダイアログを開き、あるフォルダを選択させます。 選択したフォルダ配下のファイルとサブフォルダにあるファイル一覧とそのファイルのパス取得したいです。 【例】D:\TEMP\AAA フォルダを選択 D:\TEMP\AAA D:\TEMP\AAA\BBB\CCC.txt D:\TEMP\AAA\BBB\DDD\EEE.txt D:\TEMP\AAA\BBB\DDD\FFF.txt GGG.txt が存在する。 まず、フォルダAAAまで選択されたら、 以下の結果がエクセルに出力したいです。 BBB CCC.txt BBB\DDD EEE.txt BBB\DDD FFF.txt GGG.txt うまく伝えないかもしれないですが、ご教授お願いいたします。
- ベストアンサー
- Visual Basic
- CSVファイルの指定部分をエクセルに取り込みたい
複数のCSVファイルをエクセルに、VBAを使用して取り込みます。 CSVファイルの形式は決まっているのですが、キーワード行から指定行分のみを取り込みたいです。 データ形式は、 Ａ１ aaa bbb ccc Ｂ１ aaa bbb ccc Ｃ１ aaa bbb ccc Ａ１ a1a b1b c1c : : という感じで、キーワードＡ１行以下から次のキーワードより上のデータをエクセルに取り込みたいです。 どうぞよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- セルの値を使ってファイルを保存
１．現在以下の内容で"C8"セルの値を取得してファイルを保存しています。 Sub ファイル保存() C = Range("C8").Value ActiveWorkbook.SaveAs Filename:="C:\Users\moto\Desktop" & C & ".xls" End Sub ２．ファイル名保存時に"H1"の日付もプラスしたいです。 現在は"H1"セルには"2008/11/17"と記入されてますがこれを"20081117"と変更し、"20081117_A見積書"というファイル名で保存する。("C8"=A見積書）
- 締切済み
- オフィス系ソフト
- 正規表現で一つ目の区切り文字で区切りたいのですが・・・
aaa/bbb/ccc/ddd aaa/bbb/ccc/ddd/eee aaa/ccc/ddd $a=~/(.*)\/(.*)/; $1はそれぞれ aaa/bbb/ccc aaa/bbb/ccc/ddd aaa/ccc と成ってしまいます。 このように 「最後の/」で分けられてしまいます。 一つ目の/で分けるにはどうしたらよいでしょうか。
- ベストアンサー
- Perl
お礼
すばやいご回答ありがとうございました。うまくいきました。 会社のネットワーク上のコンピュータだと、マニュアルとは微妙に食い違うこともあり、それだけで混乱してしまう自分が情けないです。 もっと勉強します。 マクロが成功したので、後任者への引継ぎが容易になり、私も心置きなく夏季休暇が取れそうです。 ありがとうございました。