| |
こんにちは。
ACCESS初心者のため、どうしてもわからないことがあります。
下記のソースで名前を付けて保存ダイアログを呼び出すことができたのですが、
このままではただ開くだけで保存も何もできません。
そこで、例えばsampleというクエリをcsv形式で保存をさせたくて調べた結果
DoCmd.TransferText acExportDelim, "", "sampleクエリ", strGetTransfer & "", True, ""
というのを組み入れたのですが、上手く動きません。
どこにどう組み入れたらいいのか、コマンドもこれであっているのか
それすらよくわからないので、どなたかご教授いただけないでしょうか。
宜しくお願いします。
-----------------------------------------------------------------
Private Sub 出力_Click()
Dim inf As OpenFileName2
Dim text As TextBox
With inf
.DefaultExt = "csv"
.DialogTitle = "保存するファイルを選択して下さい。"
'変更開始(00/07/01) Saveするファイル名を初期値として表示する
.FileName = "c:\Sample.csv"
.FilePath = vbNullString
.FileTitle = "Sample.csv"
'変更終了
.Filter = "ﾃｷｽﾄ(*.txt)|*.txt|csv(*.csv)|*.csv|全てのﾌｧｲﾙ(*.*)|*.*"
.FilterIndex = 2
.flags = OFN_HIDEREADONLY
.InitDir = "c:\"
.MaxFileSize = MAX_PATH
.OKFlg = 0
End With
inf = Y_GetSaveFileDialog(Me.hWnd, inf)
If inf.OKFlg = 0 Then
Call MsgBox("選択をキャンセルしました。")
End If
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
