1

あるブックのコードを別のブックで実行する方法がわかりません。

コード例:

Set dlsheet = appexcel.Workbooks.Open(strPath & "dlsheet.csv")

With dlsheet.Sheets("data")

    numofrows = Sheet1.Range("A1").Offset(Sheet1.Rows.Count - 1, 0).End(xlUp).Row

    Columns("I:I").Select

    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

end with

これは実行したいコードの完全な抽出ではないことはわかっていますが、コードを実行しているブックの行数がdlsheetではなくカウントされないようにするにはどうすればよいですか。

どんな助けやアドバイスもありがたいです。

4

1 に答える 1

2

すでに使用しているので、を使用して参照シートを参照withできます。.

Set dlsheet = appexcel.Workbooks.Open(strPath & "dlsheet.csv")

With dlsheet.Sheets("data")

    numofrows = .Range("A1").Offset(.Rows.Count - 1, 0).End(xlUp).Row

    .Columns("I:I").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

end with
于 2012-06-21T12:49:05.203 に答える