投稿日 | : 2004/12/08(Wed) 09:49 |
投稿者 | : LESIA |
Eメール | : |
URL | : |
タイトル | : Re^3: EXCELの操作関連につきまして |
> Dim MaxRow, MaxRow0 As Long
これだと、MaxRow0だけがLong型で、MaxRowはVariant型になります
> Set xlApp = Excel.Application
> Set xlBook = xlApp.Workbooks.Add
> Set xlSheet = xlBook.Worksheets(1)
ここで、xlBookに新規に作成したブックを入れて、xlSheetにそのブックの
1番目のシートを入れていますが、これはどこにも使われていませんね。
> MaxRow0 = xlApp.ActiveSheet.Range("IV6").End(xlToLeft).Column
ここで、最終列を求めているようですが、なぜ変数名が行を表わす名前なんでしょうか?(^^;
変数xlSheetを使うとすると、こんな感じでしょうか?
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim MaxRow As Long
Dim MaxCol As Long
Set xlApp = Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
MsgBox xlSheet.Cells(6, 1).Value
MaxRow = xlSheet.Range("A65536").End(xlUp).Row
MaxCol = xlSheet.Range("IV6").End(xlToLeft).Column
MsgBox MaxRow
MsgBox MaxCol