Excel VBA質問箱 IV

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

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


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

37928 / 76738

←次へ　｜　前へ→


	【43956】Re:VBAで新規BOOKにシートをコピー

ichinose - 06/10/30(月) 22:57 -


	引用なし

	パスワード

▼uchan さん：
こんばんは。

>アクセスからコントロールしたいのですが、やりたいことはあるEXCELファイルの指定のシートを、新規のBOOKにコピーして、そのBOOKは名前をつけて保存したいのですが、
>どうも、コピーがうまくいきません。どなたか教えてください。
>簡単な質問なのかも知れませんがよろしくお願いします。
うまくいかないコードを提示してください。
Sub test()
　　With CreateObject("excel.application")
　　　 .Visible = True
　　　 With .workbooks.Open( _
　　　　　　"あるExcelファイルのフルパス.xls")
　　　　　.activesheet.copy 'この例ではアクティブシートを新規ブックにコピー
　　　　　.Close False
　　　　　End With
　　　 With .activeworkbook
　　　　　.saveas "d:\・・・\保存する名前.xls"
　　　　　.Close False
　　　　　End With
　　　 .Quit
　　　 End With
End Sub

確認してみてください。

0 hits

▼

【43952】VBAで新規BOOKにシートをコピー uchan 06/10/30(月) 22:02