Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

41545 / 76732

←次へ　｜　前へ→


	【40266】シートの値のみ貼付け（複数）

サン

- 06/7/10(月) 12:22 -


	引用なし

	パスワード

いつも申し訳ござません。

A1　　　B1　　　C1
ｺｰﾄﾞ　顧客名　顧客名カナ　
　A2　　　B2　　　C2
11111111　××　　××
　.
　.

となっている表を複数にシートの値のコピーを下記のマクロを参考にして
マクロを作りたいのですが、A1をA:Cに変えてもうまく動きません。
どのようにしたら宜しいでしょうか。
御忙しい所申し訳ございませんが、教えていただけますでしょうか。

Sub コード表コピー

Dim myData As String
Dim myWinName1, myWinName2 As String

'作業時画面固定
Application.ScreenUpdating = False

'振分先ブック名をフルパスでセット
myWinName1 = "C:\book1.xls"
myWinName2 = "C:\book2.xls"

'■１つめのブックへデータセット
'振分元データ取得
myData = Sheets("F 締日支払日ex").Range("A1").Value
'振分先ブックオープン（Book1.xls）
Workbooks.Open Filename:=myWinName1
'振分先ブックへデータセット
Sheets("sheet1").Range("A1") = myData
'振分先ブックを保存・終了（Book1.xls）
ActiveWorkbook.Close savechanges:=True

'■２つめのブックへデータセット
'振分元データ取得
myData = Sheets("F 締日支払日ex").Range("A1").Value
'振分先ブックオープン（Book2.xls）
Workbooks.Open Filename:=myWinName2
'振分先ブックへデータセット
Sheets("sheet2").Range("A1") = myData
'振分先ブックを保存・終了（Book2.xls）
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

1 hits

▼

【40266】シートの値のみ貼付け（複数） サン 06/7/10(月) 12:22

≪