実行時エラー380:rowsourceプロパティを設定できませんでした.無効なプロパティ値
こんにちは
Word VBAでマクロを処理していて、ExcelファイルのtableからListbox1に情報を取得しようとしていますが、常にRowSourceプロパティを使用して値を取得しようとすると、このエラーが発生します.
これは私が使用するコードです:
オブジェクトとしての薄暗いFso
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim bStartApp As Boolean
Dim rng As Excel.Range
Dim rng2 As Excel.Range
整数としての薄暗い高さ
Fso= CreateObject( "Scripting.FileSystemObject")
を設定しますSet xlApp= CreateObject( "Excel.Application")
エラーの場合
bStartApp= True
Set xlApp= CreateObject( "Excel.Application")
終了する場合
File_path= "C:\...General\Database.xlsx"
If Fso.FileExists(File_path)Then
xlBook= xlApp.Workbooks.Open(File_path)
を設定しますxlSheet= xlBook.Worksheets( "Database")
を設定しますxlAppを使用
.Visible= True
.WindowState=-4140
で終わる
xlSheet.Activate
rng= xlSheet.Range( "A2:A50")
を設定します高さ=Excel.Application.WorksheetFunction.CountIf(rng、 "*")+ 1
rng2= xlSheet.Range( "A2:K"&Height)
を設定しますListBox1を使用
.RowSource= rng2.Address
.ColumnHeads= True
で終わる
それ以外の場合
MsgBox「データベースが見つかりません.」
終了する場合
Fso= Nothing
に設定しますxlApp.Quit
xlApp= Nothing
に設定しますxlBook= Nothing
を設定しますxlSheet= Nothing
に設定しますFile_pathは正常で、ファイルが開きます
Worksheets( "Database")は正常で、Sheetがアクティブになります
「Height」変数は問題ありません.適切な値を取得します.この場合=3
すでに"Height"変数を修正値に置き換えようとしました(例:Set rng2= xlSheet.Range( "A2:K3"))、 "External:= True"を追加しましたが、問題は解決していません.以下にいくつかのスクリーンショットがあります.
エラーが発生する瞬間の高さの値
エラーが発生する瞬間のrng2.Address値
エラーが発生する現在のRowSource値
別の方法として「PASSWORD」を使用したループを作成することも知っていますが、最後のオプションとして残しておきたいと思います.
この問題について私を助けてくれることを願っています.それは構文に関連しているはずです.