標題: [發問] 從excel檔案列印到記事本問題? [打印本頁]

---

作者: metrostar    時間: 2011-9-8 14:47     標題: 從excel檔案列印到記事本問題?

學妹又來麻煩大家了

打開 EXCEL 檔有詳細說明喔

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

幫忙學妹完成



謝謝了

---

作者: GBKEE    時間: 2011-9-9 14:05

本帖最後由 GBKEE 於 2011-9-10 06:54 編輯

回復 1# metrostar
直接選擇文字檔修正

1. Sub output()
   
2.     Dim Fos As String, Fs As Object, i As Integer, S As Variant
   
3.     With Application.FileDialog(msoFileDialogOpen)  '開啟舊檔案
   
4.         .InitialFileName = "*.txt"   '選擇文字檔
   
5.         If .Show = 0 Then Exit Sub
   
6.         Fos = .SelectedItems(1)
   
7.     End With
   
8.     Set Fs = CreateObject("Scripting.FileSystemObject").OpenTextFile(Fos, 1)
   
9.     'OpenTextFile:開啟一個指定的檔案並傳回一個 TextStream 物件，該物件可用於對檔案進行讀取或附加。
   
10.     S = Replace(Replace(Fs.READALL, " ", ""), "-", "0")
    
11.     Fs.Close
    
12.     Set Fs = CreateObject("Scripting.FileSystemObject").CreateTextFile(Fos, True)
    
13.     'CreateTextFile :建立一個指定的檔名並且傳回一個用於該檔案讀寫的 TextStream 物件。
    
14.     Fs.Write S
    
15.     Fs.Close
    
16. End Sub

複製代碼

---

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