返回列表 上一主題 發帖

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

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
116  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-5-20 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2018-11-15 16:34 | 顯示全部帖子
回復 1# Haroro
按鈕上文字必須是你的工作表名稱
所有按鈕指定巨集到同一個巨集Button_Click
  1. Sub Button_Click()
  2. Dim Ob As Shape, Sht As Worksheet
  3. Set Ob = ActiveSheet.Shapes(Application.Caller) '取得按下的按鈕
  4. sh = Ob.OLEFormat.Object.Caption '按鈕的文字
  5. Set Sht = Sheets(sh) '要擷取的工作表
  6. With Sht
  7. Open "D:\" & sh & ".txt" For Output As #1 '開啟文字檔案
  8. For Each a In .Columns("H").SpecialCells(xlCellTypeConstants) 'H欄位所有有資料的儲存隔做迴圈
  9. Print #1, a '寫入每個儲存格文字
  10. Next
  11. Close #1 '關閉文字檔
  12. End With
  13. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題