Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


5487 / 13644 ツリー ←次へ | 前へ→

【50508】EXCEL&ACCESS putaro 07/7/30(月) 12:54 質問[未読]
【50510】Re:EXCEL&ACCESS マルチネス 07/7/30(月) 13:23 発言[未読]

【50508】EXCEL&ACCESS
質問  putaro E-MAIL  - 07/7/30(月) 12:54 -

引用なし
パスワード
   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になってしまうのはスキル
不足なんですが、どうぞご指導のほど宜しくお願い致します。

【50510】Re:EXCEL&ACCESS
発言  マルチネス  - 07/7/30(月) 13:23 -

引用なし
パスワード
   マルチポスト先には、マルチポスト禁止のところもあります。

まず、マルチポスト状態を解消してください。
(マルチネス)

5487 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free