|
▼ハチ さん:
>閉じれずにどうなのるですか?
>エラー・・が出る 、メッセージ・・が出る など明確しないと解りません。
説明不足で申し訳ありません・・。
特にエラーやメッセージ等は出ません、
Visual Basic Editerを開いて確認してみると
test_macro.xls と 新規ブックのBook1.xlsの2つが存在する状態なので
test_macro.xlsが閉じられていないのだろうと思っているのですが・・
>>test_macro.xlsが開いたままだと、完成した帳票をローカルに保存した場合
>>test_macro.xlsのマクロまで保存してしまうことが問題となっています。
>
>??意味がわかりません。
>必要なのは、新規で作成したBookではないのですか?
そうです、新規で作成したBookのみを保存したいのですが
ブラウザの名前を付けて保存を押しローカルに保存すると
マクロまで保存されてしまいます。
>他の部分のコードを提示しないと他の方には伝わらないのでは?
こちらも情報不足ですみません。
以下のようなコードで実行しています。
Sub Auto_Open()
Dim bookNM As String
Workbooks.OpenText Filename:="test.csv"
Workbooks.Add
bookNM = ActiveWorkbook.Name
Workbooks("test_macro.xls").Activate
Sheets(1).Copy Before:=Workbooks(bookNM).Sheets(1)
Workbooks("test_macro.xls").Activate
Sheets(1).Copy Before:=Workbooks(bookNM).Sheets(1)
Workbooks(bookNM).Activate
Range("H1") = "確認用文字列"
Windows("test.csv").Close SaveChanges:=False
Windows("test_macro.xls").Close SaveChanges:=False
Workbooks(bookNM).Activate
End Sub
よろしくお願いいたします
|
|