返回列表 上一主題 發帖

[發問] 從excel檔案另存記事本問題

metrostar

帖子
55 
主題
20 
精華
0 
積分
80 
點名
0  
作業系統
winxp 
軟體版本
officexp 
閱讀權限
20 
性別
女 
註冊時間
2010-7-5 
最後登錄
2013-8-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-7-30 19:28 | 顯示全部帖子

[發問] 從excel檔案另存記事本問題

學妹又來麻煩大家了

打開 EXCEL 檔有詳細說明喔

請帥哥/美女版主 帥哥/美女學長跟學姐

幫忙學妹完成



謝謝了

Book2.rar (5.25 KB)

收藏 分享

metrostar

帖子
55 
主題
20 
精華
0 
積分
80 
點名
0  
作業系統
winxp 
軟體版本
officexp 
閱讀權限
20 
性別
女 
註冊時間
2010-7-5 
最後登錄
2013-8-25 
2#
發表於 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

TOP

metrostar

帖子
55 
主題
20 
精華
0 
積分
80 
點名
0  
作業系統
winxp 
軟體版本
officexp 
閱讀權限
20 
性別
女 
註冊時間
2010-7-5 
最後登錄
2013-8-25 
3#
發表於 2013-8-2 08:09 | 顯示全部帖子
太棒了,可以了
多謝兩位stillfish00 帥哥學長
學妹非常感動呢
您真是太強太強了
感謝您並祝賀您
幸福好運永遠降臨您身上

TOP

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
返回列表 上一主題