Question

[高分求助]vb编程,文件用CommonDialog1如何另存？

[高分求助]vb编程,文件用CommonDialog1如何另存？
这是我现在的程序:
Screen.MousePointer = vbHourglass
Dim i As Integer
Dim j As Integer
Open "c:\库存表.csv" For Output As #1
For i = 0 To 100
For j = 0 To 3
Print #1, MSHFlexGrid1.TextMatrix(i, j) & ",";
Next
Print #1, vbNullString
Next
Close #1
Screen.MousePointer = vbDefault
功能就是"把MSHFlexGrid1表内的内容存到c:\库存表.csv"

我想加入一个CommonDialog1,让这个"库存表.csv"另存到任何地方.
谁能帮我改写一下以上程序实现我这个功能？
谢谢，我还加了个验证有没有重名：

Screen.MousePointer = vbHourglass

Dim i As Integer
Dim j As Integer
CommonDialog1.Filter = "CSV File|*.csv"
CommonDialog1.ShowSave
If CommonDialog1.filename <> "" Then
If Dir(CommonDialog1.filename) <> vbNullString Then
If MsgBox("原文件存在，是否覆盖？", vbYesNo, "提示框") = vbYes Then
Kill CommonDialog1.filename
Else
Exit Sub
End If
End If

Open CommonDialog1.filename For Output As #1
For i = 0 To 200
For j = 0 To 3
Print #1, MSHFlexGrid1.TextMatrix(i, j) & ",";
Next
Print #1, vbNullString
Next
Close #1
End If
Screen.MousePointer = vbDefault
现在比较完美了....------可以作为从 MSHFlexGrid1 导出到excel(csv)的例子.

Answer 1

Screen.MousePointer = vbHourglass
Dim i As Integer
Dim j As Integer
CommonDialog1.showsave'Open CommonDialog1.filename For Output As #1For i = 0 To 100
For j = 0 To 3
Print #1, MSHFlexGrid1.TextMatrix(i, j) & ",";
Next
Print #1, vbNullString
Next
Close #1
Screen.MousePointer = vbDefault

Answer 2

加上CommonDialog1控件，代码这样改：
Screen.MousePointer = vbHourglass
Dim i As Integer
Dim j As Integer
CommonDialog1.showsave'加上这一句
Open CommonDialog1.filename For Output As #1 '这一句这样改
For i = 0 To 100
For j = 0 To 3
Print #1, MSHFlexGrid1.TextMatrix(i, j) & ",";
Next
Print #1, vbNullString
Next
Close #1
Screen.MousePointer = vbDefault

Answer 3

天啊!!!!!!!