麻辣家族討論版版 » Excel程式區 » 請幫我修改一下匯入文字檔語法一下

返回列表下一主題上一主題發帖

[發問] 請幫我修改一下匯入文字檔語法一下

中學生 Rank: 2

帖子: 127
主題: 55
精華: 0
積分: 178
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2024-11-11

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2016-4-28 23:09 | 只看該作者

[發問] 請幫我修改一下匯入文字檔語法一下

各位大大好，我錄製了一段匯入文字檔的巨集，現在我也自行建立一個對話視窗可以選擇文字檔

但我不知道如何修改，才能把我當初錄製的文字檔改成我用對話視窗的文字檔，請各位大大幫我看一下，謝謝!!

!

新增 Microsoft Excel 工作表.rar (12.4 KB)

樓主熱帖

收藏

中學生 Rank: 2

帖子: 127
主題: 55
精華: 0
積分: 178
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2024-11-11

3^#

發表於 2016-4-29 09:06 | 只看該作者

謝謝大大的解答，我測試OK
但是現在還有一個問題，我要如何再第二次載入後，直接覆蓋掉第一次的資料，應該要如何修改呢??
謝謝解答!!!

超級版主 Rank: 8 Rank: 8

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

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

2^#

發表於 2016-4-29 00:02 | 只看該作者

回復 1# lichang

With ActiveSheet.QueryTables.Add(Connection:= _
      "TEXT;" & openfile, Destination:=Range( _
      "'cnc prm'!$A$1"))
With ActiveSheet.QueryTables.Add(Connection:= _
      "TEXT;D:\桌面\履歷\永進\160427(NXV560T)\after.prm", Destination:=Range( _
      "'cnc prm'!$A$1"))

學海無涯_不恥下問

靜思自在 : 天上最美是星星，人生最美是溫情。

返回列表下一主題上一主題