Skip to main content
本文に 4 文字追加
ソース リンク
cubick
  • 2.1万
  • 5
  • 27
  • 64

Excelで作成された請求書データ"請求書フォーム_○○_FY21.xlsx"(同book内にシートが複数)から一覧を作成したいと思い、まず1つの請求書データをVBAで取得したかったのですが、変数が定義されていません、とエラーになってしまいまいます。
どのようにすれば解決できますでしょうか。(参照先の"請求書フォーム_○○_FY21.xlsx"を何か変える必要はあるのでしょうか)

Dim ws As Worksheet
Set ws = Workbooks("請求書フォーム_○○_FY21.xlsx").Worksheets(1)

wsData.Cells(2, 2).Value = ws.Range("H3").Value '2 請求月
wsData.Cells(2, 3).Value = ws.Range("H4").Value '3 請求書番号
wsData.Cells(2, 4).Value = ws.Range("B8").Value '4 会社名
wsData.Cells(2, 5).Value = ws.Range("C13").Value '5 支払期限
wsData.Cells(2, 6).Value = ws.Cells(18, 8).Value '6 金額
wsData.Cells(2, 7).Value = ws.Cells(18, 9).Value '7 消費税
wsData.Cells(2, 8).Value = ws.Range("A20").Value '8 プロジェクト番号
wsData.Cells(2, 9).Value = ws.Range("A18").Value '9 内容

End Sub

Dim ws As Worksheet
Set ws = Workbooks("請求書フォーム_○○_FY21.xlsx").Worksheets(1)


wsData.Cells(2, 2).Value = ws.Range("H3").Value '2 請求月
wsData.Cells(2, 3).Value = ws.Range("H4").Value '3 請求書番号
wsData.Cells(2, 4).Value = ws.Range("B8").Value '4 会社名
wsData.Cells(2, 5).Value = ws.Range("C13").Value '5 支払期限
wsData.Cells(2, 6).Value = ws.Cells(18, 8).Value '6 金額
wsData.Cells(2, 7).Value = ws.Cells(18, 9).Value '7 消費税
wsData.Cells(2, 8).Value = ws.Range("A20").Value '8 プロジェクト番号
wsData.Cells(2, 9).Value = ws.Range("A18").Value '9 内容


End Sub

Excelで作成された請求書データ"請求書フォーム_○○_FY21.xlsx"(同book内にシートが複数)から一覧を作成したいと思い、まず1つの請求書データをVBAで取得したかったのですが、変数が定義されていません、とエラーになってしまいまいます。
どのようにすれば解決できますでしょうか。(参照先の"請求書フォーム_○○_FY21.xlsx"を何か変える必要はあるのでしょうか)

Dim ws As Worksheet
Set ws = Workbooks("請求書フォーム_○○_FY21.xlsx").Worksheets(1)

wsData.Cells(2, 2).Value = ws.Range("H3").Value '2 請求月
wsData.Cells(2, 3).Value = ws.Range("H4").Value '3 請求書番号
wsData.Cells(2, 4).Value = ws.Range("B8").Value '4 会社名
wsData.Cells(2, 5).Value = ws.Range("C13").Value '5 支払期限
wsData.Cells(2, 6).Value = ws.Cells(18, 8).Value '6 金額
wsData.Cells(2, 7).Value = ws.Cells(18, 9).Value '7 消費税
wsData.Cells(2, 8).Value = ws.Range("A20").Value '8 プロジェクト番号
wsData.Cells(2, 9).Value = ws.Range("A18").Value '9 内容

End Sub

Excelで作成された請求書データ"請求書フォーム_○○_FY21.xlsx"(同book内にシートが複数)から一覧を作成したいと思い、まず1つの請求書データをVBAで取得したかったのですが、変数が定義されていません、とエラーになってしまいまいます。
どのようにすれば解決できますでしょうか。(参照先の"請求書フォーム_○○_FY21.xlsx"を何か変える必要はあるのでしょうか)

Dim ws As Worksheet
Set ws = Workbooks("請求書フォーム_○○_FY21.xlsx").Worksheets(1)


wsData.Cells(2, 2).Value = ws.Range("H3").Value '2 請求月
wsData.Cells(2, 3).Value = ws.Range("H4").Value '3 請求書番号
wsData.Cells(2, 4).Value = ws.Range("B8").Value '4 会社名
wsData.Cells(2, 5).Value = ws.Range("C13").Value '5 支払期限
wsData.Cells(2, 6).Value = ws.Cells(18, 8).Value '6 金額
wsData.Cells(2, 7).Value = ws.Cells(18, 9).Value '7 消費税
wsData.Cells(2, 8).Value = ws.Range("A20").Value '8 プロジェクト番号
wsData.Cells(2, 9).Value = ws.Range("A18").Value '9 内容


End Sub
ソース リンク
Shio
  • 3
  • 1

VBA 実行時のエラー コンパイルエラー(変数が定義されていません)の解決方法

Excelで作成された請求書データ"請求書フォーム_○○_FY21.xlsx"(同book内にシートが複数)から一覧を作成したいと思い、まず1つの請求書データをVBAで取得したかったのですが、変数が定義されていません、とエラーになってしまいまいます。
どのようにすれば解決できますでしょうか。(参照先の"請求書フォーム_○○_FY21.xlsx"を何か変える必要はあるのでしょうか)

Dim ws As Worksheet
Set ws = Workbooks("請求書フォーム_○○_FY21.xlsx").Worksheets(1)

wsData.Cells(2, 2).Value = ws.Range("H3").Value '2 請求月
wsData.Cells(2, 3).Value = ws.Range("H4").Value '3 請求書番号
wsData.Cells(2, 4).Value = ws.Range("B8").Value '4 会社名
wsData.Cells(2, 5).Value = ws.Range("C13").Value '5 支払期限
wsData.Cells(2, 6).Value = ws.Cells(18, 8).Value '6 金額
wsData.Cells(2, 7).Value = ws.Cells(18, 9).Value '7 消費税
wsData.Cells(2, 8).Value = ws.Range("A20").Value '8 プロジェクト番号
wsData.Cells(2, 9).Value = ws.Range("A18").Value '9 内容

End Sub