返回列表 上一主題 發帖

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

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

學妹又來麻煩大家了

打開 EXCEL 檔有詳細說明喔

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

幫忙學妹完成



謝謝了

Book2.rar (5.25 KB)

EXCEL自帶轉換 "逗號分隔"檔案 功能
記得改改位置C:\...\ABC1.txt
  1.     Cells.NumberFormat = "General"
  2.     ActiveWorkbook.SaveAs Filename:="C:\...\ABC1.txt", FileFormat:=xlCSV, CreateBackup:=False
複製代碼
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

謝謝版主 !
再請教另一問題,這代碼怎麼小小修改呢 ?

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

回復 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.   Application.ScreenUpdating = False
  7.   With Workbooks.Add
  8.     .Sheets(1).[A1].Resize(UBound(Arr), UBound(Arr, 2)).Value = Arr
  9.     .SaveAs Filename:=fos, FileFormat:=xlCSV
  10.     .Close False
  11.   End With
  12.   Application.ScreenUpdating = True
  13. End Sub
複製代碼

TOP

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

TOP

        靜思自在 : 站在半路,比走到目標更辛苦。
返回列表 上一主題