返回列表下一主題上一主題發帖

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

metrostar

中學生 Rank: 2

帖子: 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

中學生 Rank: 2

帖子: 55
主題: 20
精華: 0
積分: 80
點名: 0
作業系統: winxp
軟體版本: officexp
閱讀權限: 20
性別: 女
註冊時間: 2010-7-5
最後登錄: 2013-8-25

5^#

發表於 2013-8-2 08:09 | 只看該作者

太棒了,可以了
多謝兩位stillfish00 帥哥學長
學妹非常感動呢
您真是太強太強了
感謝您並祝賀您
幸福好運永遠降臨您身上

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

發表於 2013-7-31 19:40 | 只看該作者

回復 3# metrostar
參考看看

Sub yy()
Dim fos, Arr
fos = Application.GetSaveAsFilename("*.txt", "文字檔案 (*.txt), *.txt")
If Not TypeName(fos) = "String" Then Exit Sub '取消
Arr = Range([A1], [G65536].End(xlUp))
Application.ScreenUpdating = False
With Workbooks.Add
.Sheets(1).[A1].Resize(UBound(Arr), UBound(Arr, 2)).Value = Arr
.SaveAs Filename:=fos, FileFormat:=xlCSV
.Close False
End With
Application.ScreenUpdating = True
End Sub

複製代碼

TOP

metrostar

中學生 Rank: 2

帖子: 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

TOP

kimbal