返回列表 上一主題 發帖

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

metrostar

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

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

學妹又來麻煩大家了

打開 EXCEL 檔有詳細說明喔

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

幫忙學妹完成



謝謝了

ATTACH.rar (129.73 KB)

收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 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
複製代碼

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題