| |
▼Nina さん：
こんにちは。
>このクエリをテキストファイルにエクスポートする。
どのような方法でエクスポートするのかが明記されておりませんが、
マクロの テキスト変換 か VBA の TransferText メソッドを使われているのでしょうか。
>なぜこのようになってしまうかわかる方いらっしゃいますか？
質問される際に、Access と OS の バージョンを明記しましょうね。
当方の WindowsXP の環境では、
[コントロールパネル] → [地域と言語のオプション] →
[地域オプション]タブにある [カスタマイズ] → [小数点以下の桁数]
という項目によって変化します。
この項目に依存させない様にするには マクロのテキスト変換や
TransferText メソッド以外でテキストファイルに出力する方法が必要です。
Sub Openステートメントでエクスポート()
'※要参照設定 DAO x.x Object Library
Dim RS As DAO.Recordset
Dim i As Long
Dim WLine As String
Dim FNumber As Long
Dim FName As String
Number = FreeFile
FName = "C:\クエリ名.txt"
Set RS = CurrentDb.OpenRecordset("クエリ名", dbOpenSnapshot)
Open FName For Output As #FNumber
Do Until RS.EOF
For i = 0 To RS.Fields.Count - 1
WLine = WLine & "," & RS(i)
Next
Print #FNumber, MID(WLine, 2)
WLine = ""
RS.MoveNext
Loop
Close #FNumber
RS.Close
Set RS = Nothing
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
