1234
返回列表 上一主題 發帖

[發問] 選擇檔案轉成文字檔問題.

dou10801

帖子
131 
主題
36 
精華
0 
積分
209 
點名
297  
作業系統
WIN10 
軟體版本
2010 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2011-6-21 
最後登錄
2023-11-28 

2022虎年全勤獎章2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2023-10-30 10:45 | 只看該作者

[發問] 選擇檔案轉成文字檔問題.

1.選檔[21.XLSX]轉成21.TXT可以,為何選檔[22.XLSX]轉成22.TXT不行,問題在那裡?
2.可否[指定工作表]:
MP1=Range(“B7”)
'With Workbooks.Open(xlsPath, , True).Sheets(MP1)  '如何指定工作表=>不行
With Workbooks.Open(xlsPath, , True).Sheets(1)         '可行.

aaa.rar (39.4 KB)

收藏 分享
杜小平

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1077 
主題
40 
精華
0 
積分
1102 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010&2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2023-11-29 
2#
發表於 2023-10-30 11:08 | 只看該作者
本帖最後由 Andy2483 於 2023-10-30 11:16 編輯

回復 1# dou10801


方法1.:
With Workbooks.Open(xlsPath, , True).Sheets(Val(MP1))
"3"是字串,指定3索引號工作表必須將字串 "3" 轉化為數值 3
20231030-1.jpg
2023-10-30 11:05


方法2.:
宣告為短整數:
    Dim MP1%
    MP1 = Range("B7")
    With Workbooks.Open(xlsPath, , True).Sheets(MP1)
20231030-2.jpg
2023-10-30 11:16
看得懂是應該的,懂得應用才像學生,臉皮厚點學會更謹慎積極

TOP

dou10801

帖子
131 
主題
36 
精華
0 
積分
209 
點名
297  
作業系統
WIN10 
軟體版本
2010 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2011-6-21 
最後登錄
2023-11-28 

2022虎年全勤獎章2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章
3#
發表於 2023-10-30 11:32 | 只看該作者
回復 2# Andy2483 感謝前輩回覆,21-1.TXT是我須求的完成檔,改With Workbooks.Open(xlsPath, , True).Sheets(Val(MP1))後,產生21.TXT的檔案內容會變成 2.58003E+50
2.58003E+50
2.58003E+50
2.58003E+50
2.58003E+50
2.58003E+50
2.58003E+50
2.58003E+50
2.58003E+50
2.58003E+50

21-1.rar (424 Bytes)

杜小平

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1077 
主題
40 
精華
0 
積分
1102 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010&2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2023-11-29 
4#
發表於 2023-10-30 11:53 | 只看該作者
回復 3# dou10801


   
mcs = "'" & mcs1 & Cells(R, MDS2) & Format(Cells(R, MDS3),~~
看得懂是應該的,懂得應用才像學生,臉皮厚點學會更謹慎積極

TOP

dou10801

帖子
131 
主題
36 
精華
0 
積分
209 
點名
297  
作業系統
WIN10 
軟體版本
2010 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2011-6-21 
最後登錄
2023-11-28 

2022虎年全勤獎章2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章
5#
發表於 2023-10-30 12:13 | 只看該作者
回復 4# Andy2483 會不會是版本問題,我的是2010版,還是不行.
杜小平

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1077 
主題
40 
精華
0 
積分
1102 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010&2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2023-11-29 
6#
發表於 2023-10-30 12:23 | 只看該作者
本帖最後由 Andy2483 於 2023-10-30 12:25 編輯

回復 5# dou10801


    選22 結果:
20231030-1.jpg
2023-10-30 12:23


結果不行?還是過程錯誤?
看得懂是應該的,懂得應用才像學生,臉皮厚點學會更謹慎積極

TOP

dou10801

帖子
131 
主題
36 
精華
0 
積分
209 
點名
297  
作業系統
WIN10 
軟體版本
2010 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2011-6-21 
最後登錄
2023-11-28 

2022虎年全勤獎章2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章
7#
發表於 2023-10-30 12:31 | 只看該作者
回復 6# Andy2483 感謝前輩多次回覆,我產生檔是這樣.
22txt.jpg
杜小平

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
1234
返回列表 上一主題