2009-07-24 12 views
1

この質問が意味をなさされるかどうかわからない場合:MS Access - Windowsフォルダの出力データは、手順後に削除できますか?

私はいくつかのクエリからデータを出力するいくつかのVBを持っています。クエリから得られたデータセットをExcelファイルにエクスポートし、これを行ういくつかのファイルがあります。 パワートイングプレゼンテーションを作成するために使用する(または最終的にはユーザにそれをさせる)少しの自動化のトリックの一部として、これらのすべてが自動的に(フォームのオープンおよびクローズのイベントが)トリップし、上位N番目のクエリを実行します。そのチャートを作成してから、チャートとデータでpptを作成します。

なので、私が思っているのは、プロセスの最後にその特定のフォルダを空にする(すべての出力ファイルを削除する)方法があります。彼らは絶えず取り除かなければならない、または次回の実行時に、あなたは25で終わります。「あなたはこのファイルを置き換えますか?」メッセージ、それはちょうど迷惑です。私はかなりこれを行うマクロメソッドがあると確信しています....しかし、私は本当に知りませんか?

なぜ私はプレゼンテーションのチャートにマッチするデータが必要なのですか、そして私ができることができる最良の方法(相対)は、pptのメモセクションにExcelからコピーして貼り付けることです。私はどのようにメモセクションへのアクセスからそれをVBで知っていない、私はメモセクションにExcelからそれをVBする方法を知らないので、これは私が仮定する必要があります。

ありがとうございました!

答えて

2

あなたはstrPathは、ファイルへのパスでディスクからファイルを削除する

Kill (strPath) 

を使用することができます。必要に応じて繰り返します。

+0

私はdocmd.kill(strPath)を使用していますか?それを使用するには?私はそれを感謝します! – Justin

+0

は純粋なVBAになります。 DoCmdやその前のものはありません。プロジェクトに「Visual Basic For Applications」参照を追加する必要があるかもしれません - コードウィンドウでツール - >参照 – BIBD

2

あなたが何かに置くことができ、各ファイル箇条書きにしたくない場合は、次のバッチファイルで

del C:\FolderName\*.xls 

を。次に、VBAで

は、バッチファイルを実行します。

Call Shell("C:\folderdelete.bat") 

をしたり、より多くのコードの中心を感じる場合:

Dim sDelFile As String 
sDelFile = Dir$("c:\FolderName\*.xls") 
Do While sDelFile <> "" 
    Kill "c:\FolderName\" & sDelFile 
    'need to specify full path again because a file was deleted 1 
    MyFile = Dir$("c:\FolderName\*.xls") 
Loop 

私は実際に生産に入れる前に、これをテストしたいです。

+0

に移動してください: Dim sDelFile As String sDelFile = Dir $( "c :\ FolderName \ *。xls ") DoDefFile <>" " " c:\ FolderName \ "&sDelFileをキルしてください 'ファイルが削除されたためにフルパスを再度指定する必要があります1 sDelFile = Dir $ :\ FolderName \ *。xls ") ループ –

+0

oopsがフォーマットされていないため、コメントを削除できません。 MyFileはsDelFileである必要があります –

+0

おかげでみんな!いつものように私はそれを感謝します....私はそれを試して、それはかなりうまくいった!これは私のためにその問題を解決します... セス私はここに投稿した質問の半分についてあなたが答えたと思います。 – Justin

関連する問題