笹がね

解決

Datagridの内容をCSVふぁいるに 2005-06-16 11:37:51 No: 90493 IP: [192.*.*.*]

おはつです。
今CSVファイルエクスポートをｓているのですが、datagridの内容を呼ぶには
どうしたらいいのでしょうか？？どなたかご教授お願いします。

Dim ret As Integer

dlgSave.InitDir = App.Path
dlgSave.ShowSave

With DataGrid1.  ここです。
.Open

Open dlgSave.FileName For Output As #1

Write #1, "作業者ID", "作業者名", "権限"

.MoveFirst
Do Until .EOF
Write #1, !作業者ID, !作業者名, !権限
        .MoveNext
Loop
Close #1
.Close
End With

Beep
ret = MsgBox("CSVファイルのエクスポートが終了しました", vbOKOnly +                       vbInformation, "CSVファイルエクスポート")

このように記述しているのですが・・・・・・・・。皆様宜しくお願いします。

編集削除

笹がね 2005-06-16 11:43:05 No: 90494 IP: [192.*.*.*]

すみませんでした。間違えました・・・。
皆様宜しくお願いします。

編集削除