笹がね

解決

Datagridの内容をCSVふぁいるに 2005-06-16 20:37:51 No: 90493

おはつです。
今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 20:43:05 No: 90494

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