標題: [發問] 從excel檔案另存記事本問題 [打印本頁]

---

作者: metrostar    時間: 2013-7-30 19:28     標題: 從excel檔案另存記事本問題

學妹又來麻煩大家了

打開 EXCEL 檔有詳細說明喔

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

幫忙學妹完成



謝謝了

---

作者: kimbal    時間: 2013-7-30 22:24

EXCEL自帶轉換 "逗號分隔"檔案 功能
記得改改位置C:\...\ABC1.txt

1.     Cells.NumberFormat = "General"
   
2.     ActiveWorkbook.SaveAs Filename:="C:\...\ABC1.txt", FileFormat:=xlCSV, CreateBackup:=False

複製代碼

---

作者: metrostar    時間: 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

---

作者: stillfish00    時間: 2013-7-31 19:40

回復 3# metrostar
參考看看

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

複製代碼

---

作者: metrostar    時間: 2013-8-2 08:09

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)