エクセル マクロ 保存先 指定

印刷画面をｐｄｆにして出力しようと思っております 　Set xlBook = Workbooks....続きを読む, エクセルにて "I:\補TEST\TEST"　& Range("B1")　& ".pdf", Quality:=xlQualityStandard, _, エクセルのマクロのついての質問です Excel VBA マクロのワークブックを上書きや名前を付けて保存する方法を紹介します。Workbook.Save メソッドでブックを上書き保存できます。Workbook.SaveAs メソッドでブックを名前を付けて保存できます。 Selection.AutoFilter Field:=3, Criteria1:="=検索する", Operator:= xlAnd ファイル名は、指定したセルの値で保存されるようにします。 If Not (saveFilePath = "False") Then エクセルのマクロを使用して作業したいと思っています。 Sub てすと() できれば、解説もいただけると助かります。よろしくお願いします。, 一例です。 End Sub, GetSaveAsFilenameメソッドでできるでしょう。 UNC名だとうまく行きました。 保存先・ファイル名を入力して保存ボタンをおすことで、ファイルが保存されます。 実行後のフォルダ： このように、保存時に保存先・ファイル名を指定したい場合はGetSaveAsFilenameメソッドがおすすめです！ ブックを保存してから閉じる方法 部品表は、何百種類もありますので、関数ではなく、マクロで処理を希望します。 If Fname <> False Then FN = Range("C2") Set oFs = Nothing initPath = "C:\入力済みデータ" ChDir "C:\Documents and Settings\管理者\保存するフォルダ○○" とりあえず実用性も踏まえました。 "C:\Documents and Settings\管理者\保存するフォルダ○○\Book1.xls", FileFormat:=xlNormal, _ 　xlBook.Close A列　　　　 B列　　　　　C列　　　　　　 True IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ モータ　　U-1325-L　　 Set oFs = Nothing で、できます。, EXCEL2003 VBAで業務を簡素化するために、現在開いているブックのファイル名を取得する方法が分かりません。 "I:\補TEST\TEST.pdf", Quality:=xlQualityStandard, _ Sub PDF保存() というかたちでダイアログボックスを出すまでは出来たのですが ファイル名は空欄になってしまいますよね。 　Do While Range("A" & I).Value <> "" > 必ず元のファイルと同一のフォルダになるってくれるものなのでしょうか？ 名前をつけて保存ダイアログが開きますが、そのときにマイドキュメントが開き 商品名　　商品番号　　コード エクセルのvbaを覚えたい。作業を自動化したい。そんな方はやはり基礎を覚えることが必要でしょう。今回は基礎中の基礎である、vbaでどのようにしたらファイル保存ができるのか、をご紹介させていただきます。ファイル保存といってもcsv出力、エクセ,エクセルのvbaを覚えたい。 （３）そのＢｏｏｋを適当な名前（今回はＢｏｏｋ１）で保存し、マクロの記録を終了。 例えば、ファイルが、ｇドライブにあるということが解ったとして まず条件どおり、C:\入力済みデータ の中にいくつかのフォルダを用意しました。 ?検索する時にとても不便です, このカテゴリは18歳未満の方は閲覧できません, https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1378822208. End Sub, こんにちは。 Dim saveFilePath As String Dim Sname As String, Fname As Variant Sub OpenFolders() 宜しくお願い致します, 説明が悪くて済みませんでした End If Application.DisplayAlerts = True UNC名だとうまく行きました。 ます。 通常は、格納先パスを指定しなかった場合は、Excelのオプションで指定したカレントフォルダが Exit Sub End Sub （４）ツール→マクロ→マクロを選択、マクロ名を選択し、編集ボタンを押す。 Dim oFs As Object Fname = Application.GetSaveAsFilename(InitialFileName:=FolName & Sname, _ 「個人用マクロブック」にマクロを保存する場合にはマクロの記録の際にマクロの保存先を「個人用マクロブック」に指定します。 これでマクロの保存先が「個人用マクロブック」になります。 個人用マクロブックの表示 新規の表を作成したりすると、必ず、「名前を付けて保存」をするわけですが、 この保存画面のファイル名のところに、 たとえば、A1セルの文字が自動表示されれば、保存が楽だと思う人は結構多いのではないでしょうか。 End Sub 文字列の結合ですから解説は不要ですよね。 ファイルを保存するフォルダを指定し、 VBAでファイルを指定するダイアログを扱うには、すでに紹介したGetOpenFilenameやGetSaveAsFilenameがありますが、さらに、今回紹介する、FileDialogオブジェクト こちらも使用することができ、GetOpenFilenameやGetSaveAsFilenameにはない便利な機能が提供されています。 保存するたびにフォルダを指定したい。 保存先のフォルダがネットワーク上にあります。 2) ファイル名を入力する。 CreateBackup:=False Sname = ThisWorkbook.Name こういうものですか？ ' Macro1 Macro "c:\\xxx.pdf", Quality:= _ If oFs.folderExists(FolName) = False Then 　Dim xlBook 名前をつけて保存ダイアログが開きますが、そのときにマイドキュメントが開き ActiveSheet.Copy xlQualityStandard, IncludeDocProperties:=True, _ Folname = "ネットワーク...続きを読む, こちらでは、IP Address 指定だとファイル名が,"" で括られてしまいましたが Application.DisplayAlerts = False 部品表は、何百種類もありますので、関数...続きを読む, こんにちは。 ファイル名は何も指定されていません。 宜しくお願い致します, 「PDF コンビニ」に関するQ&A： Windows10で A4サイズのデータを２分割してPDF化してコンビニでA3に印刷したい, 「VBScript 配列」に関するQ&A： VBScriptの配列は、要素数を指定しないと使えないのでしょうか？, 「プリンタ コンビニ」に関するQ&A： pcからsdカードに取り込んだ画像がコンビニのプリンターでは印刷できないのですが．．．, 「マクロ 保存」に関するQ&A： エクセルで一定時間ごとにバックアップを保存するマクロを作りたい。, 「ＦＯＲ名前」に関するQ&A： 「one for all, all for one」という名前のアーティストはいますか？, 確認したドライブをどの様に反映したら良いのでしょうか 　I = 2 Const FolName As String = "\\サーバー名\共有名\フォルダ名\" End If ート側に残すことで、取り込んだファイルやフォルダが明確になります。 If oFs.folderExists(FolName) = False Then ActiveSheet.Select InputBoxでファイル名を変数として入力させたものを Excel 2003 を新規に立ち上げ、新規ワークブックに標準モジュールを挿入し、以下のコードを書き込んで実行しました。 基本事項は本で学びましたが、呪文のようなコードはよく理解できません。懸命にネットで検索して、訳して理解する努力をしてはいますが。 必ず元のファイルと同一のフォルダになるってくれるものなのでしょうか？ （２）ダイアログボックスを確認、マクロ名（今回はＭａｃｒｏ１のまま）を入力し、ＯＫ。 ファイル指定ダイアログの表示 すると、下記のようなモジュールが現れる。 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 　Application.ScreenUpdating = False End Sub, ※各種外部サービスのアカウントをお持ちの方はこちらから簡単に登録できます。 A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。 すると、下記のようなモジュールが現れる。 常にファイル名を取得出来るVBAをどなたか、教えて下さい。, ＞現在開いているブックのファイル名 If Sname = "" Then Sname = ThisWorkbook.Name どこかに間違いがあるのかも知れませんが、間違いを特定することができません。 http://www.officepro.jp/excelvba/book_new/index10.html, 希望する事は ます。 ２．下のSheet1タブを２列にする方法は？ Sub 保存() Personal.xlsというファイル(マクロブック)に保存したマクロは、どのExcelファイルからでも利用することができるようになっています。 ブック保存時のファイル形式を指定するサンプルコード 商品名　　商品番号　　コード 今回はダイアログボックスを開いて、別ファイルとして名前をつけて保存する方法をご説明します。 別記事で紹介している上書き保存、名前を付けて保存は予め指定されているファイル名で保存する方法ですが、今回はユーザーに保存場所とファイル名を指定してもらい保存します。 このように、保存先フォルダの階層が浅い場合は、対応も簡単です。 では、保存先フォルダがC:\Work\2012\Quater1だった場合はどうでしょう。 先のように、FileSystemObjectを使えば、フォルダの存在は確認できます。 ブックのパス（保存場所）を調べるには、Workbook オブジェクト の Path プロパティ や FullName プロパティ を使用します。 Path プロパティ. 今回使用するエクセルのファイルのあるドライブにPDFを書き出したいのですが また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。 saveFilePath = Application.GetSaveAsFilename(initPath, "Excel File (*.xls),*.xls") Private Sub CommandButton1_Click() 　Set xlBook = Workbooks.Open("C:\★★\コード一覧表.xls") '★要変更★ 　Filename:= pathname & "\○○.xls" お手数おかけし申し訳ありませんが、ご教示のほどよろしくお願いします。 また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。