投稿日 | : 2003/03/30(Sun) 11:36 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^5:EXCELの選択セル範囲を取得 |
コードを省略したり、環境を書いてもらわないとExcelの場合エラーが発生して
止まった所に原因があるとは限りませんので適切なアドバイスが出来ないし、
解決を長引かせるだけです。
このコードですと、(GetObject(Text4.Text))Excelファイルが表示されていない状態
(ウィンドウが閉じたまま)です。従ってエラーが発生しております。
又、どこでExcelのシートの範囲を選択するのですか?範囲が選択されていないのに
選択範囲を取得しても!!
少し変更して見ました。
Option Explicit
Public xlApp As Excel.Application
Public xlBook As Excel.Workbook
Public xlSheet As Excel.Worksheet
'-------------------------------------------------
Private Sub Command6_Click()
Dim iDAd11G As String
Dim iDAd11R As String
Dim iDAd12G As String
Dim iDAd12R As String
Text4.Text = "E:\workvb\読上\TEST.XLS"
'セル選択範囲を取得
Set xlApp = New Excel.Application
'============以下の部分変更===============
Set xlBook = xlApp.Workbooks.Open(Text4.Text)
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = True
MsgBox "範囲を選択して下さい"
With xlApp.Selection
iDAd11G = CStr(.Row) '選択セルの左上の行番号 <----------ここで止まります
iDAd11R = CStr(.Columns(1).Column) '選択セルの左上の列番号
iDAd12G = CStr(.Rows(.Rows.Count).Row) '選択セルの右下の行番号
iDAd12R = CStr(.Columns(.Columns.Count).Column) '選択セルの右下の列番号
End With
'---------ここから取得したセル位置を利用し、処理します。---------------
' xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub