Excel VBA質問箱 IV

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

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


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

20529 / 76732

←次へ　｜　前へ→


	【61618】Re:開いたxlsを閉じたい。

つん - 09/5/21(木) 23:56 -


	引用なし

	パスワード

どもども
なんども失礼

>Workbooks.Open Filename:="Z:\管理\情報ｼｽﾃﾑ室\UserName\Daiky_Backup_Data\Backup_Data\" & Sname & "\バックアップ " & IData & ".htm"
> Windows("バックアップ " & IData & ".htm").Activate
>　　Cells.Select
>　　Selection.Copy
>　　Windows("Daily_Backup_Data(tky02,tsrv03,rdsrv03).xls").Activate
>　　Range("A1").Select
>　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
>　　　　:=False, Transpose:=False
>　　Range("A1").Select

拝見してると、「"バックアップ " & IData & ".htm"」をまるまる、「Daily_Backup_Data(tky02,tsrv03,rdsrv03).xls」にコピーしてるみたいですよね。
だったら、セルのコピーではなくて、シートのコピーでいいんじゃないかな？

Sub test()

　　Workbooks.Open Filename:="C:\Users\tomoko\Desktop\新しいフォルダ\test.htm"
　　
　　ActiveSheet.Copy Before:=Workbooks("test2.xlsx").Worksheets(1)
　　　　
　　Workbooks("test.htm").Close

End Sub

こんな感じ？
デスクトップにフォルダを作って、その中に、「test.htm」と「test2.xlsx]
を作ってみました。（２００７だから、拡張子が変～～～。これ、なんかイヤやねえ）
で、「test.htm」のシートを「test2.xlsx」の先頭にコピー

こんなのはどうですか？

コピーとか貼り付けとか、いちいちそのブックやシートをセレクトしなくても出来ます。
マクロの記録じゃどうしてもそういう形になるけど、なれてきたら、セレクトしないコードの書き方を覚えていったらいいかな？と思います。

あまり上手に説明できなくてごめんなさい。
頑張ってね＾＾

0 hits

▼

【61612】開いたxlsを閉じたい。 ちえ 09/5/21(木) 18:15