VBA初心者です。
VBA PDFで保存するマクロで実行時エラー 1004 が出てしまいます。
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="MAT\商品別グラフ" & i - 62 & ".pdf", _
OpenAfterPublish:=False
ドキュメントを保存できませんでした。ドキュメントが開いているか保存時にエラーが発生した可能性があります。というエラーメッセージです。
Excelでグラフを9枚、PDFで保存するマクロを作ったのですが、
実行してうまくいく場合と、上記のエラーが出てしまう場合があります。
色々思考錯誤しましたが、どこを直せばいいのかわかりません。
どなたか見て頂けないでしょうか。
WINDOWS7 office2013を使用しています。
どうぞ宜しくお願いいたします。
Sub PDF作成()
Dim i As Integer
Dim WB As Workbook
Dim WS01 As Worksheet
Dim WS02 As Worksheet
Set WB = Application.Workbooks("売上管理表グラフ.xlsm")
Set WS01 = ThisWorkbook.Worksheets("データ")
Set WS02 = ThisWorkbook.Worksheets("グラフ")
For i = 62 To 72
WS01.Range("A4").Value = WS01.Cells(i, "A").Value
WS02.Activate
Application.CutCopyMode = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="MAT\商品別グラフ" & i - 62 & ".pdf", _
OpenAfterPublish:=False ’←エラーはここが反転しています’
Next i
End Sub
No.2ベストアンサー
- 回答日時:
コード、よさげですけどね。
1.売上管理表グラフ.xlsmが格納されているフォルダに MAT というフォルダはありますか?
2.Filename:="MAT\商品別グラフ" ~ はフルパスで書いた方がいいかも
例)Filename:="c:\売上管理\MAT\商品別グラフ" ~
それと、質問のカテゴリは少なくともRubyではないような。
コンピューター・テクノロジー >Microsoft Office >Excel(エクセル)
かな。
返信ありがとうございます。
1.マイドキュメントにMATというフォルダを作ってあります。
2.Filenameの箇所をフルパスで書いてみましたら、サクサク動きました!!
売上管理表グラフ.xlsmが格納されているフォルダにMATというフォルダを作っていないのがエラーの原因ですかね。(マイドキュメントに作っていた)
フルパスで指定したことによって、場所が確定され実行された。
とても勉強になりました。
お手数をおかけしました。ありがとうございました。
カテゴリは焦って間違えてしまいましたが、おかげさまで解決しました。
本当にありがとうございました!!!
No.1
- 回答日時:
・Filenameの指定にドライブレターがない。
「D:\MAT\商品グラフ」などとしないと、マイドキュメント内などへの保存となってしまいます。
・MATフォルダーが存在しなければ出力することはできません。
存在しない場合にMATフォルダーを作り上げるという実装を行うか、MATフォルダーを用意しなければ動作しない仕様とするかのどちらかです。
早速の返信ありがとうございます。
MATというフォルダは作ってあるのですが、動く時とエラーになる時があります。
ここがおかしいみたいなので、もう少し変更してみます。
ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) エクセル VBAについて教えてください 2 2023/04/26 13:25
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Visual Basic(VBA) エラーコード1004 6 2022/06/09 14:12
- Excel(エクセル) エクセルVBA、間違っているコード内容を正して頂けませんか? エクセルワークシートに納品書を作ったの 2 2023/08/02 21:13
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
エラー1004 PDFの保存ができません。解決方法を教えてください。
Visual Basic(VBA)
-
Excelマクロのエラーを解決したいです。
Visual Basic(VBA)
-
Excel VBA シートを指定してpdf化
Visual Basic(VBA)
-
-
4
エクセルをPDFで保存し、ファイル名はA1セルを参照するVBAの記述を教えてください。
Excel(エクセル)
-
5
excel マクロ PDF化の際のエラーについて
Visual Basic(VBA)
-
6
【VBA】PDF作成のコードでコンパイルエラーになってしまいます。
Excel(エクセル)
-
7
Excel VBAでPDFファイルをMicrosoft Print to PDFで出力したい
Visual Basic(VBA)
-
8
【Excel】指定したセルの名前でPDFを保存する【VBA】
Visual Basic(VBA)
-
9
エクセルでエラーが出て困っています。
Excel(エクセル)
-
10
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
-
11
マクロ、PDFを任意のフォルダへ保存
Excel(エクセル)
-
12
ExcelVBAでPDFを閉じるソース
その他(Microsoft Office)
-
13
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
14
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
15
マクロの「SaveAs」でエラーが出るのを解消したいです
Visual Basic(VBA)
-
16
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
17
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
18
ExcelのVBAでフォームが表示されない
Excel(エクセル)
-
19
ExcelVBA Range クラスの PageBreak プロパティを設定できません。
Visual Basic(VBA)
-
20
マクロを実行すると画像がズレてしまいます
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA PDFで保存するマクロで実行...
-
MySQLにて、SQLファイルの実行...
-
リンクエラーの修正法を教えて...
-
コマンドプロンプト(Pingコマ...
-
Windowsコマンドプロンプトのmo...
-
デザイナ表示が出来ません
-
Visual Studio のエディタの動...
-
cygwinでcsvファイルを表示させる
-
macでDocuWorks を使うのは無理?
-
Notesの再セットアップ
-
Windowsの古いゲーム(32bit OS...
-
ubuntuでteamvewerがインストー...
-
インストールした覚えがないア...
-
fedoraのインストール方法。
-
VScodeでステップ実行が出来ない
-
32bit Setup Launcher
-
一太郎をMacで使いたいのですが...
-
kali linuxのアーカイブ(過去の...
-
バーチャルボックスでUbuntuを...
-
SolarisとLinuxの違い
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windowsコマンドプロンプトのmo...
-
VBA PDFで保存するマクロで実行...
-
MySQLにて、SQLファイルの実行...
-
リンクエラーの修正法を教えて...
-
VBA グラフを複数作成する場合
-
EclipseのTomcatがライブラリを...
-
Excel VBAでグラフを移動させる...
-
VB6.0とVB.NETの違いについて
-
VBで作成したEXEが使用している...
-
デザイナ表示が出来ません
-
python django で エラー表示し...
-
office32ビット版で作成したExc...
-
ポインタと整数との比較を行な...
-
vb.netによるアプリが動かなく...
-
コマンドプロンプト(Pingコマ...
-
Visual Studio のエディタの動...
-
テキストエディタatomの日本語化
-
git clone https://~ ができない
-
pythonのエラーメッセージについて
-
FaceBookでアプリ作成ができません
おすすめ情報