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

帖子: 9
主題: 4
精華: 0
積分: 14
點名: 0
作業系統: WIN7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2017-12-2
最後登錄: 2024-1-7

論壇榮譽勳章論壇贊助勳章

10^#

發表於 2018-11-15 20:58 | 只看該作者

回復 7# Hsieh

感謝 Hsieh

帖子: 9
主題: 4
精華: 0
積分: 14
點名: 0
作業系統: WIN7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2017-12-2
最後登錄: 2024-1-7

論壇榮譽勳章論壇贊助勳章

9^#

發表於 2018-11-15 19:27 | 只看該作者

回復 6# n7822123

謝謝龍哥

我會試著~~玩一玩~~(摸索摸索)

帖子: 9
主題: 4
精華: 0
積分: 14
點名: 0
作業系統: WIN7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2017-12-2
最後登錄: 2024-1-7

論壇榮譽勳章論壇贊助勳章

8^#

發表於 2018-11-15 19:20 | 只看該作者

回復 4# rouber590324

感謝 rouber 大大

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2018-11-15 16:34 | 只看該作者

回復 1# Haroro
按鈕上文字必須是你的工作表名稱
所有按鈕指定巨集到同一個巨集Button_Click

Sub Button_Click()
Dim Ob As Shape, Sht As Worksheet
Set Ob = ActiveSheet.Shapes(Application.Caller) '取得按下的按鈕
sh = Ob.OLEFormat.Object.Caption '按鈕的文字
Set Sht = Sheets(sh) '要擷取的工作表
With Sht
Open "D:\" & sh & ".txt" For Output As #1 '開啟文字檔案
For Each a In .Columns("H").SpecialCells(xlCellTypeConstants) 'H欄位所有有資料的儲存隔做迴圈
Print #1, a '寫入每個儲存格文字
Next
Close #1 '關閉文字檔
End With
End Sub

複製代碼

學海無涯_不恥下問

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

6^#

發表於 2018-11-15 11:56 | 只看該作者

本帖最後由 n7822123 於 2018-11-15 12:08 編輯

回復 5# n7822123

擔心你路徑打錯，在多個功能"選資料夾"，給你玩一玩

~~玩壞別找我:D~~

TEST+2.rar (24.36 KB)

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

5^#

發表於 2018-11-15 10:56 | 只看該作者

本帖最後由 n7822123 於 2018-11-15 11:08 編輯

回復 3# Haroro

巨集與VBA不是一樣的東西嗎....?

如果你說的巨集是指錄製巨集的話，那錄製巨集應該是做不到你要的功能

只能寫VBA，這要花時間去研究，如果之前沒接觸過程式，想要VBA速成應該不太可能

你的功能不難，幫你寫好如附件，選你要的工作表輸出即可(自動更新下拉式選單)，不用那麼多按鈕...........

雖然不難，但是你要更改的話，還是要先看懂..........，這部分別人講其實都很難意會，要自已多嘗試

TEST+1.rar (22.21 KB)

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

rouber590324

高中生 Rank: 3 Rank: 3

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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

4^#

發表於 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欄位有資料的串接

羅

帖子: 9
主題: 4
精華: 0
積分: 14
點名: 0
作業系統: WIN7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2017-12-2
最後登錄: 2024-1-7

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2018-11-14 19:28 | 只看該作者

回復 2# rouber590324

rouber 大大小弟不才，還是不太懂

在麻煩大大指導
如果用巨集來做的話
會比較簡單點嗎??
   如果會的話!!
   該如何操作
   感謝

TEST.rar (7.81 KB)

rouber590324

高中生 Rank: 3 Rank: 3

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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

2^#

發表於 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

羅