|
|
|
|
コメント(11)
>みぎかた。さん
その通りです。
それで、下記のようなロジックで試しましたけど、結果は変わりません。
Dim fileNo As Integer
Dim strNo As String
Open strFilePass For Input As #fileNo
Line Input #fileNo, strNo
Do Until EOF(fileNo)
cnt = cnt + 1
Debug.Print strNo & ";"
strNo属性をVariantにしたら、数字とスペースの項目は完全な数字項目になってしまいました。
ちなみに、この後mdbに登録し、操作します。
で、このフォーマットは国のデータを取り込むインターフェースです。
民間のシステムでこんなテキストだらけのインターフェースを作ったら怒られます。
その通りです。
それで、下記のようなロジックで試しましたけど、結果は変わりません。
Dim fileNo As Integer
Dim strNo As String
Open strFilePass For Input As #fileNo
Line Input #fileNo, strNo
Do Until EOF(fileNo)
cnt = cnt + 1
Debug.Print strNo & ";"
strNo属性をVariantにしたら、数字とスペースの項目は完全な数字項目になってしまいました。
ちなみに、この後mdbに登録し、操作します。
で、このフォーマットは国のデータを取り込むインターフェースです。
民間のシステムでこんなテキストだらけのインターフェースを作ったら怒られます。
- mixiユーザー
- ログインしてコメントしよう！
|
|
|
|
Microsoft Office Access 更新情報
-
最新のアンケート
-
まだ何もありません
-
Microsoft Office Accessのメンバーはこんなコミュニティにも参加しています
人気コミュニティランキング
- 1位
- 独り言
- 10165人
- 2位
- マイミク募集💖50代60代70代
- 2412人
- 3位
- 暮らしを楽しむ
- 78110人