返回列表 上一主題 發帖

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

lichang

帖子
127 
主題
56 
精華
0 
積分
176 
點名
0  
作業系統
win8 
軟體版本
office2003 
閱讀權限
20 
註冊時間
2013-1-24 
最後登錄
2025-1-26 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-4-28 23:09 | 只看該作者

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

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

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

! 新增 Microsoft Excel 工作表.rar (12.4 KB)
收藏 分享

Hsieh

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

2024年全勤獎章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"))
學海無涯_不恥下問

TOP

lichang

帖子
127 
主題
56 
精華
0 
積分
176 
點名
0  
作業系統
win8 
軟體版本
office2003 
閱讀權限
20 
註冊時間
2013-1-24 
最後登錄
2025-1-26 
3#
發表於 2016-4-29 09:06 | 只看該作者
謝謝大大的解答，我測試OK
但是現在還有一個問題，我要如何再第二次載入後，直接覆蓋掉第一次的資料，應該要如何修改呢??
謝謝解答!!!

TOP

        靜思自在 : 人要自愛，才能愛普天下的人。
返回列表 上一主題