|
こんにちは、Satsukiと申します。
スレッド57227のところで教えて頂いたコードの一部を研究中です。
まだほとんどできていないので、できている部分だけを書きます。
↓下記のようにユーザー定義型が定義されていて
Private Type RecordData
日付 As Date
店名 As String
人数 As Long
製品名 As String
担当名 As String
台数 As Long
End Type
Private Sub InsertMain()
Dim Cn As ADODB.Connection
Dim cnString As String
Dim typData() As RecordData
Dim fNum As Long
Dim Ret As Boolean
Const csvpath As String = "E:\Data\Office\Access\TestData.csv"
On Error GoTo ErrTrap
Set Cn = New ADODB.Connection
cnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\hogehogeDirctory\Test.mdb;"
Cn.ConnectionString = cnString
Cn.Open
Dim objsheet As Worksheet
Set objsheet = Worksheets("sheet1")
objsheet.Range("A1").Select
For j = 1 To objsheet.Cells(Rows.Count, 1).End(xlUp).Row
typData(1).店名 = Cells(j, 1)
typData(2).人数 = Cells(j, 2)
Next j
Cn.Close
Set Cn = Nothing
Exit Sub
ErrTrap:
'必要なエラー処理
End Sub
何も動作せずにend subに飛んでしまいます。
typData(1).店名 = Cells(j, 1)のところを見ると、
「インデックスが有効範囲にありません」と出ています。
どこを直したらよいでしょうか?
どなたかご教示お願いいたします。
|
|