2

シートオブジェクトを作成しようとすると、エラーが発生します:

    Dim oFS   : Set oFS  = CreateObject("Scripting.FileSystemObject")
    Dim oXls  : Set oXls = CreateObject("Excel.Application")
    Dim oWb   : Set oWb  = oXls.Workbooks.Open(oFs.GetAbsolutePathName("Wing_To_Wing_Report.xlsx"))
    Dim aData ': aData    = oWb.Worksheets(1).Range("$A2:$C10")
    Dim dicP  : Set dicP = CreateObject("Scripting.Dictionary")
    Dim Range,ObSheet1,ObSheet2
    Dim TotalRows,LastCol


    ObSheet1=oWb.ActiveWorkbook.Worksheets("WingToWingMay25")
    ObSheet2=oWb.ActiveWorkbook.Worksheets("ParentChildLink")

これも試しました：

   ObSheet1=oWb.Worksheets("WingToWingMay25")
   ObSheet2=oWb.Worksheets("ParentChildLink")

エラーオブジェクトはこのプロパティまたはメソッドをサポートしていません: "ActiveWorkbook"

ここで私を助けてもらえますか？なんでそうなの。

4

2 に答える 2

3
  1. ActiveWorkbook oWb 自体はワークブック オブジェクトです。その部分は必要ありません
  2. setのキーワード を見逃していますset ObSheet1=oWb.Worksheets("WingToWingMay25")

また、あなたのプリントスクリーンの 1 つから、開発に Notepad++ を使用していることがわかりました。

スクリプトを直接実行するだけでなく、

デバッガを使用してスクリプトをテストしてください。

ここでデバッガを見つけることができます

デバッガーを使用すると、ソース コードを 1 行ずつ実行できます。

ウォッチ ウィンドウを使用して、実行時に各オブジェクトのプロパティを確認します。

于 2012-12-20T07:30:28.320 に答える
0

の代わりにObSheet1=oWb.ActiveWorkbook.Worksheets("WingToWingMay25")、これを行う必要があります。

set ObSheet1=oWb.ActiveWorkbook.Worksheets("WingToWingMay25")
于 2012-12-20T07:30:00.147 に答える