|
ACCESS97 DAO3.6
EXCEL2000 AND 2003
はじめまして
このサイトは良く活用させていただいております。
そこで質問というかお助けしてほしいことがあります。
--------------------
ACCESS DAO3.6 →EXCEL2000
データのエクセルに取り込みの際のチェック方法をおしえてください。
Set rng = wst.Range(Cells(LngColumn, LngRow), Cells(.RecordCount
+ LngColumn, .Fields.Count)) '1行目は列名
rng.CopyFromRecordset rcs 'エクセルにデータ書き込み
End With
.Close
End With
ここで、1列目を取得してエクセルに書き込みにいっているのはわかるんです
が、どう値を取得したらよいのか困っております。
考えている仕様としては、1セルごとに、取得して文字か数値化判断したいで
す。
また、
----------------------------------------------------------------
EXCEL2000→ACCESS97 DAO3.6
データの書き込み字のことですが、
With Worksheets(SeetName).Range(StrCells).CurrentRegion
'エクセルシートの1列目
Set rno = .Resize(.Rows.Count - 1, 1).Offset(1, 0)
For Each rng In rno
rcs.AddNew 'レコード追加データ記入
For fld = 0 To rcs.Fields.Count - 1
'アクセスに1行づつ書き込み
Let rcs.Fields(fld).Value = rng.Offset(0, fld).Value '右へ
一列づつ
On Error GoTo ERR1:
ERR1:
Next 'ずれていく
rcs.Update 'レコードデータ保存
Next
End With
Let 〜〜文でなにやら書いている事はわかりますが、上記質問どおり、1セル
ずつ文字か数字化のチェックをしたいと思っております。
----------------------------------------------------
いろいろのサイトをみながらなのでよくにたPGMになってしまうのはスキル
不足なんですが、どうぞご指導のほど宜しくお願い致します。
|
|