[vba覚書]ファイルを共有フォルダへコピーする

VBAからネットワーク共有ホルダーへファイルをコピーしテキストエディターで開く

まず、VBAエディタの「ツール」>「参照設定」画面で「Microsoft Script Runtime」を追加
20180117FileSystemObjectを使うにはMicrosoft Script Runtimeを登録


VBAスクリプトはこんな感じ

Dim FSO As New FileSystemObject

Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.GetFile("c:\仕事フォルダ\ファイル名.txt").Copy "\255.255.255.255\共有フォルダ\固定長ファイル名.txt"
Set FSO = Nothing

Call Shell("notepad.exe \\255.255.255.255\共有フォルダ\ファイル名.txt", 1)

コメントを残す

メールアドレスが公開されることはありません。

CAPTCHA