下記のコードを、マクロをテキスト出力したいaccdbに
書いて、そのaccdbのマクロは出力できるのですが、
ファイルが数10ファイルあるので、できれば、1つの
accdbから他のaccdbのマクロを出力できるようにしたいです。
そのような方法はありますでしょうか?
※ファイル数の分だけ繰り返す、という処理の書き方だけは分かっています
Dim Containers As DAO.Containers Dim Container As DAO.Container Dim Document As DAO.Document Set Containers = CurrentDb.Containers Set Container = Containers("Scripts") For Each Document In Container.Documents SaveAsText ObjectType:=AcObjectType.acMacro, _ ObjectName:=Document.Name, _ fileName:="C:\" & Document.Name & ".txt" Next
【環境】
Access2010のVBA、Win7
※因みに、今はPCの管理者権限があるが、近いうちに標準ユーザに
なるので、VBScriptは実行できなくなる可能性が高い
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/08/08 04:39