ExcelのVBAでODBCを使用してiSeriesのデータを取り込み、
シートに貼り付ける作業を行いました。
VB関連は素人ですが、↓を参考にして何とか作成しました。
http://firebird.skr.jp/wiki/Excel%20VBA%A5%B5%A5 …
ところが、iSeriesの中では全角の数字として入っているデータが、
Excelで受信すると表示形式が日付に勝手に変更されてしまいます。
後で書式設定を標準に変えると半角のデータとなってしまいます。
何か解決法はありませんでしょうか?
Windows XP Professional SP3
Excel 2003
iSeries v5.4 / v5.2
iSeries Access for Windows v5.2 SI23978
No.3ベストアンサー
- 回答日時:
サンプル通りに作ったので有れば、ちょっと変更してみてください。
レコード件数が多くても処理が速くなります。(少ない時は、あまり関係ないかも)
> row = 2
> While (Not recordSet.EOF) And row < 60000
> For col = 0 To recordSet.Fields.Count - 1
> outPutSheet.Cells(row, col + 1).Value = recordSet.Fields(col).Value 'データ
> Next col
> recordSet.MoveNext
> row = row + 1
> Wend
outPutSheet.Range("A2").CopyFromRecordset recordSet, 60000
'列幅を自動調整 必要なければコメントに・・・
outPutSheet.Columns("A:AZ").EntireColumn.AutoFit
たぶん、これで治るかと思います。
回答ありがとうございます。
その方法を使ってみましたら劇的に速度が速くなり感動しています。
書式も勝手に変わることもなく大変助かりました。
No.2
- 回答日時:
書式を文字列に変更しても半角になってしまう場合、
文字列を全角にするコードを書く。
Range(範囲) = strconv(文字列, vbWide)
で代入しなおしてあげる。
ただ、1セルの中に全角と半角を混在させたい場合は
少々面倒なことになります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBA 書式変更で困ってます。 オートフィルターの日付フィルターを用いて データの絞り込 2 2022/07/26 22:16
- Excel(エクセル) EXCELの外部データ取得ができない 1 2023/03/23 09:03
- Excel(エクセル) 【vba】日付の形式が勝手に変わってしまう。 1 2022/09/29 10:54
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- その他(Microsoft Office) wordの差し込み印刷での日付表示 2 2023/08/15 16:51
- システム CSVファイルのマッピング処理の省力化 1 2022/11/24 00:01
- その他(Microsoft Office) ExcelデータをPDFにして保存するとWordデータに変換されるようになった 10 2023/06/20 09:03
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- Excel(エクセル) excelの列幅高さが勝手に変わる(特定のPCだけ) 8 2022/07/14 16:51
- Excel(エクセル) Excelについて教えてください。 帳票データがあります。 アクセスに取り込むため、 データ形式にし 1 2022/06/08 19:59
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Access→Excelへエクスポートすると日付の表示形式が変化する
Excel(エクセル)
-
VBAでシート書式の自動変換を作動させない方法
Excel(エクセル)
-
ADOで複数のBookから抽出
Visual Basic(VBA)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
DAOでフィールドのデータ型を変更するには?
Visual Basic(VBA)
-
6
DATE型変数を初期化する方法
Visual Basic(VBA)
-
7
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
8
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
9
EXCELVBAでSQLserverからデータをひっぱってきてエクセルに表示させたい
Visual Basic(VBA)
-
10
[Excel]ADODBでNull変換されてしまう
Visual Basic(VBA)
-
11
「データベースまたはオブジェクトは読み取り専用なので、更新できません」エラーについて
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
英数字のみ全角から半角に変換
-
VBで、String型のデータが、...
-
IEからEdgeへの移行に伴うIMEの...
-
[VBScript]バイト長の判定
-
住宅にカナを入力する際に丁目...
-
word差し込み印刷 半角カタカ...
-
VBA 文字に半角が含まれて...
-
capeofdragonと申します Excel2...
-
コマンドプロンプト 全角を含ん...
-
全角スペース
-
プログラミングでは、半角括弧...
-
LaTeXで半角カンマと全角カンマ...
-
全角英数字の必要性が理解できない
-
COBOL・全角判定
-
perl 初めてのプログラムにエラ...
-
[Excel VBA] ODBCによる外部デ...
-
.NET3.5におけるキーボードの「...
-
vba アクティブシートの名前変...
-
封筒の宛先で縦書きの書き方
-
ACCESS VBA でのバイナリデー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
英数字のみ全角から半角に変換
-
VBA 文字に半角が含まれて...
-
住宅にカナを入力する際に丁目...
-
全角英数字の必要性が理解できない
-
vba アクティブシートの名前変...
-
IEからEdgeへの移行に伴うIMEの...
-
エクセルにMicrosoft Barcode C...
-
word差し込み印刷 半角カタカ...
-
プログラミングでは、半角括弧...
-
COBOL・全角判定
-
VBで、String型のデータが、...
-
全角入力
-
VB.net、テキストボックス入力...
-
Accessのテキストボックスの入...
-
CString Format にて全角空白文...
-
メモ帳の段落の揃え方
-
エクセルでの”々”の扱い
-
封筒の宛先で縦書きの書き方
-
正規表現で、全角文字を半角文...
-
全角英数字を半角英数字に変換...
おすすめ情報