|
iijima さん、こんばんわ。
> xl.Cells(1, 1) = "1"
> xl.Cells(1,1).Copy Destination := xl.Cells(1, 2)
>
>今は、このコードで試しています
>
>ステートメントがありません というエラーです
ググっていたら、こういう記事を見つけました。
ht tp://q.hatena.ne.jp/1206628897
「おっと、大切なことを忘れていました。
VBSでは、名前つき引数は使えません。」
なので、
'///////////////////////////////////
Option Explicit
Dim xl
Dim sht
Set xl = WScript.CreateObject("Excel.Application")
xl.Visible = True
set sht = xl.Workbooks.Add.Worksheets(1)
sht.cells(1,1).Value = 1
sht.cells(1,1).Copy sht.Cells(2,"B")
Set sht = nothing
Set xl = nothing
'///////////////////////////////////
こんな感じです。
|
|