教えて下さい。
ACCESSであるテーブルのデータをCSV出力しようとして、以下のような記述をしました。
結果、問題なく出力されましたが、データだけでなく、項目も出力しようと考えています。
その際にはどのような記述をすれば良いでしょうか？
初歩的な質問で申し訳ありません。
教えて下さい。
《内容》
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim stSQL As String
Dim stTBL As String
Dim myWSH As Object 'WScript
Dim myDesktopPath As String
Dim stPath As String 'フルパス
Dim objFSO As Object 'FileSystemObject
Dim fsoTS As Object 'TextStream
Dim tmp As Variant 'データ
Dim re As Variant 'データ件数
Dim stDocName As String
Const ForAppending = 8
stTBL = "t_合算" 'テーブル名
'開始メッセージ
stDocName = "「" & stTBL & ".CSV」 ファイルをデスクトップに作成します"
If MsgBox(stDocName, vbYesNo) = vbNo Then Exit Sub
'デスクトップパス取得
Set myWSH = CreateObject("WScript.Shell")
myDesktopPath = myWSH.SpecialFolders("Desktop")
Set myWSH = Nothing
'フルパス
stPath = myDesktopPath & "\" & stTBL & ".CSV"
'読み取り専用でセット
Set cnn = CurrentProject.Connection
stSQL = "SELECT * FROM " & stTBL
Set rst = cnn.Execute(stSQL)
If rst.EOF Then
stDocName = "出力するデータがありませんでした"
Else
'文字列データ格納 (全データ出力、カンマ区切り)
tmp = rst.GetString(adClipString, , ",", vbNewLine)
'出力
Set objFSO = CreateObject("Scripting.FileSystemObject")
With objFSO
If .FileExists(stPath) Then
'既存ファイル削除
Call .DeleteFile(stPath)
End If
Set fsoTS = .OpenTextFile(stPath, ForAppending, True)
'文字列一括書き出し
fsoTS.WriteLine tmp
re = fsoTS.Line - 2
End With
Set fsoTS = Nothing: Set objFSO = Nothing
stDocName = re & " 件の CSVデータを出力しました。"
End If
MsgBox stDocName, vbOKOnly
A lot can change between here and here.
http://www.donnymiller.com/fineart/art/alotcanchange.htm
上記英文が上記URLに絵と共に載っていました。
「こことここの間は沢山変える事ができる。」という訳になると思うのですが、「ここ」は「指」の意味でしょうか？ 「指と指の間」だから、、、、、分かりません、、。 意味深な文章ですが、どういう意味なんでしょうか？？？
以下の文章の翻訳に頭を悩ませています。
The well-known slogan of a furniture store “Are you still residing or already living?” could be suitably changed into the question:“Are you still functioning or already living?”
ストレスタフネスを啓蒙するマニュアルに含まれている文章で、
この後、
はっきりしていることは、人生とは他の誰でもなく「自分」が作るものなのです。
といった落としどころが待っているのですが。。。
家具店のスローガン そのもの と
それをもじった（韻を踏んだ）決めせりふ のように使う為に
どのように翻訳したものか？？
何卒、皆々さまからお知恵を拝借したく願います。
宜しくお願いいたします！
教えて下さい。
ACCESSであるテーブルのデータをCSV出力しようとして、以下のような記述をしました。
結果、問題なく出力されましたが、データだけでなく、項目も出力しようと考えています。
その際にはどのような記述をすれば良いでしょうか？
初歩的な質問で申し訳ありません。
教えて下さい。
《内容》
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim stSQL As String
Dim stTBL As String
Dim myWSH As Object 'WScript
Dim myDesktopPath As String
Dim stPath As String 'フルパス
Dim objFSO As Object 'FileSystemObject
Dim fsoTS As Object 'TextStream
Dim tmp As Variant 'データ
Dim re As Variant 'データ件数
Dim stDocName As String
Const ForAppending = 8
stTBL = "t_合算" 'テーブル名
'開始メッセージ
stDocName = "「" & stTBL & ".CSV」 ファイルをデスクトップに作成します"
If MsgBox(stDocName, vbYesNo) = vbNo Then Exit Sub
'デスクトップパス取得
Set myWSH = CreateObject("WScript.Shell")
myDesktopPath = myWSH.SpecialFolders("Desktop")
Set myWSH = Nothing
'フルパス
stPath = myDesktopPath & "\" & stTBL & ".CSV"
'読み取り専用でセット
Set cnn = CurrentProject.Connection
stSQL = "SELECT * FROM " & stTBL
Set rst = cnn.Execute(stSQL)
If rst.EOF Then
stDocName = "出力するデータがありませんでした"
Else
'文字列データ格納 (全データ出力、カンマ区切り)
tmp = rst.GetString(adClipString, , ",", vbNewLine)
'出力
Set objFSO = CreateObject("Scripting.FileSystemObject")
With objFSO
If .FileExists(stPath) Then
'既存ファイル削除
Call .DeleteFile(stPath)
End If
Set fsoTS = .OpenTextFile(stPath, ForAppending, True)
'文字列一括書き出し
fsoTS.WriteLine tmp
re = fsoTS.Line - 2
End With
Set fsoTS = Nothing: Set objFSO = Nothing
stDocName = re & " 件の CSVデータを出力しました。"
End If
MsgBox stDocName, vbOKOnly
