返回列表 上一主題 發帖

[發問] 請問大大們，該如何抓取EXCEL某欄，另存成txt檔？新手請教，感謝。

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 »
發表於 2018-11-14 15:07 | 顯示全部帖子
參考修改之

Sub 傳送PIXART外加字至CAM()
   
   
   '組合檔案名稱
    OutFile = "\\89.80.70.1\design\add_word\" & Sheet48.Range("B1") & ".txt"
    '建立檔案物件
    Set fs = CreateObject("Scripting.FileSystemObject")
    '開啟一個叫of的文字檔物件供輸出
    On Error Resume Next
    On Error GoTo 1
    Set of = fs.CreateTextFile(OutFile, True)
    '輸出標題至of
    of.Write (Sheet71.Range("B2") & Chr(13) & Chr(10))
    of.Write (Sheet71.Range("B3") & Chr(13) & Chr(10))

    Sheet71.Select
    Range("A1").Select
   
    '關檔
    of.Close
1:  Sheet70.Select
    Range("A1").Select
End Sub
羅

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 2018-11-15 09:33 | 顯示全部帖子
1.OutFile = "\\89.80.70.1\design\add_word\" & Sheet48.Range("B1") & ".txt"
    '建立檔案物件 -
  1.1\\89.80.70.1\design\add_word\路徑改為 至桌面上的練習資料夾
  1.2 Sheet48.Range("B1") 自行變更需求.TXT檔案名稱連結位置   
2. of.Write (Sheet71.Range("B2") & Chr(13) & Chr(10)) '輸出標題至of
  2.1 Sheet71.Range("B2") 改為H欄位有資料的串接
羅

TOP

        靜思自在 : 受人點水之恩，須當湧泉以報。
返回列表 上一主題