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

帖子: 152
主題: 45
精華: 0
積分: 239
點名: 238
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2026-10-13

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

2^#

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

杜小平

帖子: 152
主題: 45
精華: 0
積分: 239
點名: 238
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2026-10-13

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

3^#

發表於 2023-10-30 12:13 | 顯示全部帖子

回復 4# Andy2483 會不會是版本問題,我的是2010版,還是不行.

杜小平

帖子: 152
主題: 45
精華: 0
積分: 239
點名: 238
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2026-10-13

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

4^#

發表於 2023-10-30 12:31 | 顯示全部帖子

回復 6# Andy2483 感謝前輩多次回覆,我產生檔是這樣.

22txt.jpg (24.86 KB)

杜小平

帖子: 152
主題: 45
精華: 0
積分: 239
點名: 238
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2026-10-13

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

5^#

發表於 2023-10-30 13:18 | 顯示全部帖子

回復 8# Andy2483
With Workbooks.Open(xlsPath, , True).Sheets(1)
.Cells.NumberFormatLocal = "@"
取第一工作表正常了.

With Workbooks.Open(xlsPath, , True).Sheets(2) 或 With Workbooks.Open(xlsPath, , True).Sheets(val(mp1)
.Cells.NumberFormatLocal = "@"
這個還是不行...........

杜小平

帖子: 152
主題: 45
精華: 0
積分: 239
點名: 238
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2026-10-13

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

6^#

發表於 2023-10-30 13:48 | 顯示全部帖子

本帖最後由 dou10801 於 2023-10-30 13:51 編輯

回復 10# Andy2483
With Workbooks.Open(xlsPath, , True).Sheets(2)
1.選取22.XLSX為例.
2,會產生[工作表一]的資料,且不是字串組合.
mcs = "" & mcs1 & Cells(R, MDS2) & Format(Cells(R, MDS3), "00000000000") & "00" & mcs2 & Cells(R, MDS4) & String(p2, " ")

22txt.jpg (41.44 KB)

工作表1.jpg (167.11 KB)

工作表2.jpg (153.34 KB)

杜小平

帖子: 152
主題: 45
精華: 0
積分: 239
點名: 238
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2026-10-13

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

7^#

發表於 2023-10-30 14:24 | 顯示全部帖子

回復 12# Andy2483
方法1.:
With Workbooks.Open(xlsPath, , True).Sheets(Val(MP1))
"3"是字串,指定3索引號工作表必須將字串 "3" 轉化為數值 3

方法2.:
宣告為短整數:
Dim MP1%
MP1 = Range("B7")
With Workbooks.Open(xlsPath, , True).Sheets(MP1)

mcs = "'" & mcs1 & Cells(R, MDS2) & Format(Cells(R, MDS3),~~

With Workbooks.Open(xlsPath, , True).Sheets(2)
.Activate
.Cells.NumberFormatLocal = "@"

此次問答,感謝前輩,不吝賜教指導,學到很多小細節,感恩感恩.

杜小平

帖子: 152
主題: 45
精華: 0
積分: 239
點名: 238
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2026-10-13

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

8^#

發表於 2023-10-30 15:03 | 顯示全部帖子

回復 14# Andy2483
以選22.XLSX,第3工作表為例,末筆資料,[合計]字樣為何拿不掉.請前輩指點,謝謝.
If Cells(R, 3) <> "" Then '已判斷C欄空白不加入BRR(),但產生檔還是有[合計]字樣.
         p1 = Len(Cells(R, MDS4))  '備註欄長度.
         p2 = 29 - p1             '補空白長度
         mcs = "" & mcs1 & Cells(R, MDS2) & Format(Cells(R, MDS3), "00000000000") & "00" & mcs2 & Cells(R, MDS4) & String(p2, " ")
         brr(R, 1) = mcs
      End If

杜小平