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

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

Option Explicit

変数の指定

Private Sub 実行ボタン_Click()

　Excelファイルをコピー

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

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

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

End Sub

No.3 回答者： imogasi 回答日時： 2002/10/29 08:55

・ある既存のファイルをコピーし、別名を付けオープンし

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

この回答へのお礼

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

お礼日時：2002/10/29 11:56

No.2 ベストアンサー 回答者： papayuka 回答日時： 2002/10/29 00:44

こんにちは。

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

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

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

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

この回答へのお礼

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

お礼日時：2002/10/29 11:54

No.1 回答者： TAGOSAKU7 回答日時： 2002/10/29 00:21

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

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

この回答への補足

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

補足日時：2002/10/29 12:35