既存のExcelファイルをコピーして、コピーしたファイルに画面内容を転記する方法

質問

タイトル通りの質問です。
流れ的には、こんな感じになると
思われますが、文法等がイマイチ
分からなかったので書き込みしました。
お分かりの方がいらしたら、お願い致します。

Option Explicit

変数の指定

Private Sub 実行ボタン_Click()

　Excelファイルをコピー

　コピーしたExcelファイルをオープン

　指定したセルに画面内容（テキストボックス）を転記

　コピーしたExcelファイルをクローズ

End Sub

回答No.2

papayuka · ベストアンサー

こんにちは。

検索しろとのご指摘もありますが。。。

> 指定したセルに画面内容（テキストボックス）を転記

の意味が良く解かりませんので、テキトーにやってます。
何のエラー処理もしてないので、テストブックで試して下さい。

Sub Test()
Dim wb As Workbook
　'コピー
　FileCopy "C:\Book1.xls", "C:\copy.xls"
　'オープン
　Workbooks.Open ("C:\copy.xls")
　Set wb = ActiveWorkbook
　'記入
　wb.ActiveSheet.Range("A1") = Now
　'保存
　wb.Save
　'クローズ
　wb.Close
End Sub

お礼

教えて頂いた通りで出来ました。
ありがとうございました！

回答No.3

imogasi

・ある既存のファイルをコピーし、別名を付けオープンし
保存しクローズする処理は＃１のご回答を追試しました。
・質問の力点が「画面内容（テキストボックス）を転記 」したい、にあるのではないかと思いますが、もう少し具体的に記述していただければ、ＯＫＷＥＢを読む方の参考にもなるように思います。
wb.Worksheets("Sheet1").Range("a1")=Text1.Text
では質問にならない気がしますので。

お礼

説明不足で申し訳ありませんでした。
教えて頂いたソースで解決出来ました。
ありがとうございました。

回答No.1

TAGOSAKU7

少し検索しましょうよ・・・

いっぱいサンプルが、ここのBBSにもあります。
「質問検索」を活用してください。。。

補足

検索はしたのですが、
うまくヒットしませんでした。
検索方法が悪かったのかも知れません…