| |
ACCESS97 DAO3.6
EXCEL2000 AND 2003
はじめまして
このサイトは良く活用させていただいております。
そこで質問というかお助けしてほしいことがあります。
--------------------
ACCESS DAO3.6 →EXCEL2000
データのエクセルに取り込みの際のチェック方法をおしえてください。
Set rng = wst.Range(Cells(LngColumn, LngRow), Cells(.RecordCount
+ LngColumn, .Fields.Count)) '１行目は列名
rng.CopyFromRecordset rcs 'エクセルにデータ書き込み
End With
.Close
End With
ここで、１列目を取得してエクセルに書き込みにいっているのはわかるんです
が、どう値を取得したらよいのか困っております。
考えている仕様としては、１セルごとに、取得して文字か数値化判断したいで
す。
また、
----------------------------------------------------------------
EXCEL2000→ACCESS97 DAO3.6
データの書き込み字のことですが、
With Worksheets(SeetName).Range(StrCells).CurrentRegion
'エクセルシートの１列目
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
'アクセスに１行づつ書き込み
Let rcs.Fields(fld).Value = rng.Offset(0, fld).Value '右へ
一列づつ
On Error GoTo ERR1:
ERR1:
Next 'ずれていく
rcs.Update 'レコードデータ保存
Next
End With
Let 〜〜文でなにやら書いている事はわかりますが、上記質問どおり、１セル
ずつ文字か数字化のチェックをしたいと思っております。
----------------------------------------------------
いろいろのサイトをみながらなのでよくにたＰＧＭになってしまうのはスキル
不足なんですが、どうぞご指導のほど宜しくお願い致します。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 07/7/30(月) 12:54 -
