|
一部修正をしてデータがエクスポートされるようになりました。
が、If myRst(fld).Name = CSht.Cells(7, Col) Thenで一番最初に日付をExportするのですが、そのupdateのときわけのかわらない数字が一気に入ってきてしまいます。といっても、たぶんこの説明だとなんのことやらというかんじだとおもいますが。。。
-----------
'当該日付セル位置ゲット
Cr = 8
Do Until CSht.Cells(Cr, 17) = ""
If CSht.Cells(Cr, 17) = dt Then
Ct = Cr
Exit Do
Else
Cr = Cr + 1
End If
Loop
'EXPORT
Set myRst = myDb.OpenRecordset(myTbl, dbOpenDynaset)
myRst.AddNew
For Col = 17 To 31
For fld = 0 To myRst.Fields.Count - 1
If myRst(fld).Name = CSht.Cells(7, Col) Then
With myRst
.Edit
.Fields(fld).Value = CSht.Cells(Ct, Col)
.Update
End With
End If
Next
Next
'CLOSE
myDb.Close
Set myRst = Nothing
Set myDb = Nothing
|
|