VBAコードをVBSに交換し実行したいです。

Question

前提・実現したいこと

こちらテストという行に名前など合わせて記入してあげるような感じのテストであります。
VBAで作成を行なったのですが、vbsでも動くようにしたいと思いまして
実際にVBSを経ち触ったことがないので
アドバイス頂ければと思います。

自分で調査を行ってはおりますが、コードの知識があまりない素人なので
説明などいただければ嬉しいです。

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

Sub bodyTemperature()
    
    Dim c As Range
    Dim firstAddress As String
    Columns(3).Insert
    Cells(1, 3).Value = "テスト"
   
    With Worksheets("Sheet3").UsedRange.Columns(1)
        Dim obj
        Dim i
        Dim temperature
        For i = 2 To 40
            Set obj = Cells(i, 8)
            Set temperature = Cells(i, 9)
            Set c = .Find(What:=obj, _
                           LookIn:=xlValues, LookAt:=xlPart)
    
            '判断
            If Not c Is Nothing Then
               '格納
               c.Offset(0, 2).Select
               ActiveCell.FormulaR1C1 = temperature
            End If
         Next i
    End With
End Sub

試したこと

vbsの知識がないのであまり試すことができませんでした。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[BeatStar]

まず、何がわからないのでしょうか。

Answer 1

VBScriptで簡単なスクリプトを書こう
上記のようなサイトを参考に簡単なスクリプトから実行してお試しいただくのが良いかと思います。

また、エクセルを開いている状態から実行するVBAと違うため、エクセルを操作するにも少しコツがいると思います。
VBScript で Excel を操作する方法

これらで色々と試せるのではないでしょうか。

Comments

[ja_manya_h]

こちらの資料ありがとうございます！こちらを参考に色々試してみたいと思います！