| |
▼かみちゃん さん：
レスありがとうございます。
>変数 i と j の関係がよくわかりません。
>お手数ですが、長くなってもいいので、コード全体を差し支えない程度に掲載していただ
>くことはできませんか？
ありがとうございます。では、お言葉に甘えまして書かせて頂きます。
実際のデータを出すことはできませんので、同じパターンのデータを例にしてみました。前回はわかりやすくインデントして書きましたが、実際はすべてＡ列Ｂ列に表示されています。
１日ごとにCSVデータが出力され、各行に日付を入れて１件のデータにしていこうとしています。最終的には項目と日付のクロス集計をACCESSから出力します。
データ処理日
2008年7月15日
１．店別来店数
Ａ店 550
Ｂ店 360
Ｃ店 480
２．店別製品別売上数
Ａ店
製品１ 15
製品２ 26
Ｂ店
製品１ 28
製品３ 45
Ｃ店
製品２ 35
製品４ 12
３．店別個人別売上数
Ａ店
製品１
担当Ａ 6
担当Ｂ 9
製品２
担当Ｂ 6
担当Ｃ 20
Ｂ店
製品１
担当Ｄ 9
担当Ｅ 15
担当Ｆ 4
製品３
担当Ｄ 24
担当Ｅ 21
Ｃ店
製品２
担当Ｇ 7
担当Ｈ 12
担当Ｆ 16
製品４
担当Ｇ 2
担当Ｈ 7
担当Ｆ 3
Dim SearchWord As String
Dim kiten As Range
Dim kiten2 As Variant
Dim hiduke as string
Dim tenpo As String
Dim shohin As String
Dim i As Integer
Dim j As Integer
Dim Title(2) As String
Dim TitleName As String
Dim TableName(2) As String
Dim InputTable As String
Dim CN As ADODB.Connection
Dim RS As ADODB.Recordset
Dim strSQL As String
Dim hiduke As String
Set CN = New ADODB.Connection
CN.provider = "Microsoft.Jet.OLEDB.4.0"
CN.Open "C:\My Documents\bunseki.mdb"
Title(0) = "１．店別来店数"
Title(1) = "２．店別製品別売上数"
Title(2) = "３．店別個人別売上数"
TableName(0) = "raiten"
TableName(1) = "seihinbetsu"
TableName(2) = "kojinbetsu
Range("A1").Select
SearchWord = "*年*月*日*"
Set kiten = Worksheets("Sheet1").Columns(1).Find(What:=SearchWord, LookIn:=xlValues, LookAt:=xlWhole)
If Not kiten Is Nothing Then
hiduke = kiten
End If
TitleName = Title(0)
InputTable = TableName(0)
i = 0
SearchWord = Title(0)
Set kiten2 = Worksheets("Sheet1").Columns(1).Find(What:=SearchWord, LookIn:=xlValues, LookAt:=xlWhole)
If kiten2 Is Nothing Then
Exit Sub
End If
For j = kiten2.Row + 1 To Range("A65536").End(xlUp).Row
Cells(j, 1).Activate
↓空白セルはとばす。
If IsNull(ActiveCell.Value) Or ActiveCell.Value = "" Then
Cells(j + 1, 1).Activate
j = j + 1
End If
↓タイトル行が出てきたら、変数に入れて、１行下にフォーカスをずらす。
If ActiveCell.Value = Title(i + 1) Then
TitleName = Title(i + 1)
InputTable = TableName(i + 1)
Cells(j + 1, 1).Activate
i = i + 1
j = j + 1
End If
↓１件ごとのデータに共通の値を変数で保持。
If ActiveCell.Value Like "*店" Then
tenpo = Cells(j, 1)
ElseIf ActiveCell.Value Like "製品*" Then
shohin = Cells(j, 1)
Else
Set RS = New ADODB.Recordset
strSQL = "select * from " & InputTable
RS.Open strSQL, CN, adOpenStatic, adLockOptimistic, adCmdText
Select Case TitleName
Case "１．店別来店数"
RS.addnew
RS!日付 = kiten
RS!店名 = Cells(j, 1).Value
RS!人数 = Cells(j, 2).Value
RS.Update
Case "２．店別製品別売上数"
RS.addnew
RS!日付 = kiten
RS!店名 = tenpo
RS!製品名 = Cells(j, 1).Value
RS!台数 = Cells(j, 2).Value
RS.Update
Case "３．店別個人別売上数"
RS.addnew
RS!日付 = kiten
RS!店名 = tenpo
RS!製品名 = shohin
RS!担当名 = Cells(j, 1).Value
RS!台数 = Cells(j, 2).Value
RS.Update
End Select
End If
Next j
RS.Close
CN.Close
End Sub
全く別のやり方でも構いません。もっといい方法がありましたら、ご教授よろしくお願いいたします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 08/7/31(木) 0:56 -
