人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

初心者です。

Dim GL As String
GL = Sheets("Sheet1").Range("A1").Text
On Error Resume Next
FileCopy "\\Yamada\実績\" & GL & "報告.xls", "D:\実績\Yamada.xls"
FileCopy "\\Satou\実績\" & GL & "報告.xls", "D:\実績\Satou.xls"
FileCopy "\\Takahashi\実績\" & GL & "報告.xls", "D:\実績\Takahashi.xls"
FileCopy "\\Hayashi\実績\" & GL & "報告.xls", "D:\実績\Hayashi.xls"
FileCopy "\\Katou\実績\" & GL & "報告.xls", "D:\実績\Katou.xls"
Err.Clear

ネットワーク上の複数の班員の「"A1"報告」というファイルをコピーしたいのですが、今回は班員全員コピーする、次はYamadaとSatouのファイルはコピーしない、など任意でパソコン名を選べるようにしたいのですが、どのようにしたらよいのかわかりません。
班員は10数名います。
イメージとしてはB3からB7にパソコン名があり、
その横A3からA7にCopyと入力したファイルだけをコピーしたいです。
A B
パソコン名
Copy Yamada
Satou
Copy Takahashi
Copy Hayashi
Katou ・・・・・
もしくは他の方法があれば教えていただけると助かります。よろしくお願いいたします。

●質問者: sakanainu
●カテゴリ:コンピュータ
✍キーワード:A1 AS GL NeXT ON
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● SALINGER
●60ポイント ベストアンサー

テストはしていませんが、上記のコードが問題なく動くようでしたら

以下のコードでいけると思います。

 Dim GL As String
 Dim i As Integer
 Dim myName As String
 GL = Sheets("Sheet1").Range("A1").Text
 On Error Resume Next
 For i = 3 To 7
 If Cells(i, 1).Value = "Copy" Then
 myName = Cells(i, 2).Value
 FileCopy "\\" & myName & "\実績\" & GL & "報告.xls", "D:\実績\" & myName & ".xls"
 End If
 Next i
 Err.Clear

http://q.hatena.ne.jp/

◎質問者からの返答

できました!ありがとうございました。VBAも初心者ですがはてなの利用も初めてで、早い回答で大変助かりました。ありがとうございました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ