|
▼りん さん:
>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
>'///////////////////////////////////
>
>こんな感じです。
こんばんは
ありがとうございました
本当に感謝です
|
|