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

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

1^# 跳轉到 » 倒序看帖

字體大小: tT

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

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

小弟新手剛開始學習
想表達的是，有分頁【按鈕】頁
按下按鈕後【工作表1】-H欄位有資料的可以自動另存成TXT文字檔，至桌面上的練習資料夾裡面
按下按鈕後【工作表2】-H欄位有資料的可以自動另存成TXT文字檔，至桌面上的練習資料夾裡面
按下按鈕後【工作表3】-H欄位有資料的可以自動另存成TXT文字檔，至桌面上的練習資料夾裡面
更多分頁，在設定更多按鈕

想知道該如何設定，是要用巨集??還是VBA??

新手有簡單點的方法嗎？

感謝大大們

樓主熱帖

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

羅

TOP

Haroro

小學生 Rank: 1

帖子: 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)

TOP

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

羅

TOP

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)

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

TOP

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)

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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