|
▼ichinose さん:
こんばんわ
やっぱり簡単なんですね。それでも出来なかった自分が情けないです。
自分のコードも同じようだったのですが、いまひとつでした。
ありがとうございました。
>▼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
>
>
>確認してみてください。
|
|