ExcelのVBAでPDFファイルを自動作成しています。
それを振り分ける必要があるのですが、今は、
FileCopy "C:\Documents and Settings\administrator\デスクトップ\" & (ActiveCell) & ".pdf", "D:\documents\temp\" & (ブック名) & "\" & (シート名) & "\" & (ActiveCell) & ".pdf" ' ファイルをコピー
Kill "C:\Documents and Settings\administrator\デスクトップ\" & (ActiveCell) & ".pdf" ' 元ファイルを削除
のように1つファイルが出来たら、そのファイルを移動して削除して、次のPDFファイル作成をさせています。
これを、シート全体のファイルの作成が終わったら、そこで一括移動したいのですが、(ActiveCell)の部分をワイルドカードみたいにはできないのでしょうか?
それができれば、全ての処理が終わってから、一括移動して、デスクトップにあるPDFファイルを全て削除するという方法にして、時間短縮したいのですが。
意味わかります?
No.2ベストアンサー
- 回答日時:
>すでに同一名のファイルが存在する場合は、
>上書きせずにエラーになるのですね。
それなら、CopyFileメソッドとDeleteFileメソッドを使用すればいいと思います。
CopyFileメソッドでは、第3引数で上書きする・しないの指定が出来ます。
また、両メソッドとももちろんワイルドカードが使用出来ます。
詳細は、先のMicrosoftのページの下の方の参照で、それぞれのメソッドのページへ行ってみて下さい。
No.1
- 回答日時:
こんにちは。
maruru01です。ファイルシステムオブジェクトを利用すれば出来ます。
Dim myFSO As Object
Set myFSO = CreateObject("Scripting.FileSystemObject")
myFSO.MoveFile "C:\Documents and Settings\administrator\デスクトップ\*.pdf", _
"D:\documents\temp\" & (ブック名) & "\" & (シート名) & "\"
Set myFSO = Nothing
ファイルシステムオブジェクトについては、以下のページを参考にして下さい。
http://www.microsoft.com/japan/msdn/library/defa …
参考URL:http://www.microsoft.com/japan/msdn/library/defa …
ありがとうございました。
エラーが出るのでなぜかな?って思っていたら、すでに同一名のファイルが存在する場合は、上書きせずにエラーになるのですね。
仕方がないので、以前の方法で試しています。
他にも時間短縮しなくてはいけない個所はたくさんあるので。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ファイル一覧表を使ったファイルの移動 5 2022/08/10 15:37
- Excel(エクセル) 【VBA】PDF出力に任意のファイル名前を付ける方法 3 2023/07/21 10:55
- iPhone(アイフォーン) 仕事でPDFファイルをダウンロード、閲覧するのにiBooksを使っていますが、ライブラリに凄い数のフ 2 2022/11/16 07:08
- PDF PDFを自動添付したメールを送信してくれるツールを探しています。 2 2023/02/07 15:19
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- PDF PDFに精通した方に質問。JPEGファイル群を一つのPDFファイルにするときの容量変化について 6 2023/07/23 19:06
- Excel(エクセル) 【マクロ】ファイル名の日付によって、保管するフォルダを、自動選択したい 4 2023/08/16 11:24
- Excel(エクセル) 【VBA】フォルダAにある2つのファイルの内1つを、フォルダBへ。もう1つを、フォルダBへ移動したい 6 2022/07/26 08:51
- UNIX・Linux JSLinuxについて。 Linuxのこの手順のプログラミングは合っているでしょうか。 ①ホームディ 2 2022/06/20 15:33
- Dropbox スマホのドロップボックスにあるpdfファイルの起動 2 2022/06/18 09:09
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAで、条件に一致する...
-
mainメソッドのthrows節で設定...
-
onClickで関数呼出し後に、結果...
-
Labelコントロールに数字を代入...
-
final修飾子を使っているのに、...
-
Excel VBA でExcelを終了したい...
-
引数で日付を2つ与え、その間の...
-
ExcelのxlDialogInsertPictureで。
-
DataGridViewの行追加について。
-
Excel VBA シェイプの原型のサ...
-
Refreshメソッドの使い方
-
javascriptからjavaを呼び出したい
-
c#でVBのcall的役割を果たすコ...
-
エクセルVBAにおけるON TIMEメ...
-
【sendkeysメソッドが動かずに...
-
FEM解析の読み方は?
-
配列のメソッド
-
{}の意味は
-
処理内容がほぼ同じメソッドの...
-
VBAでSaveAs使用し、指定してい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAで、条件に一致する...
-
Labelコントロールに数字を代入...
-
final修飾子を使っているのに、...
-
エクセルVBAにおけるON TIMEメ...
-
コマンドプロンプト実行後に画...
-
mainメソッドのthrows節で設定...
-
DataGridViewでセルクリックイ...
-
javascriptからjavaを呼び出したい
-
VBPをダブルクリックするとたま...
-
onClickで関数呼出し後に、結果...
-
ExcelのxlDialogInsertPictureで。
-
Refreshメソッドの使い方
-
JSPで<SELECT>の中にDBから持っ...
-
【sendkeysメソッドが動かずに...
-
ウィンドウを最前面にできません
-
(String args[])というメッソ...
-
C# 演算 最大値 最小値 表現の仕方
-
Excel VBA シェイプの原型のサ...
-
VB.netで、シリアル通信のタイ...
-
boolean型のフィールドとゲッタ...
おすすめ情報