- 帖子
- 55
- 主題
- 20
- 精華
- 0
- 積分
- 80
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- officexp
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2010-7-5
- 最後登錄
- 2013-8-25
|
3#
發表於 2013-7-31 10:19
| 只看該作者
謝謝版主 !
再請教另一問題,這代碼怎麼小小修改呢 ?
Sub yy()
With Application.FileDialog(msoFileDialogSaveAs)
.Show
.InitialFileName = "*.txt"
fos = .SelectedItems(1)
End With
Arr = Range([A1], [G65536].End(xlUp))
Open fos For Output As #1
For i = 1 To UBound(Arr)
Print #1, Replace(Join(Application.Index(Arr, i), ","), "/", "")
Next
Close #1
End Sub |
|