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

　暱稱: 厚臉皮的學生

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

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

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

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

帖子: 146
主題: 41
精華: 0
積分: 229
點名: 307
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2024-12-20

2023年全勤獎章 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)

杜小平

　暱稱: 厚臉皮的學生

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

4^#

發表於 2023-10-30 11:53 | 只看該作者

回復 3# dou10801

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

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

帖子: 146
主題: 41
精華: 0
積分: 229
點名: 307
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2024-12-20

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

5^#

發表於 2023-10-30 12:13 | 只看該作者

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

杜小平

　暱稱: 厚臉皮的學生

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

6^#

發表於 2023-10-30 12:23 | 只看該作者

本帖最後由 Andy2483 於 2023-10-30 12:25 編輯

回復 5# dou10801

選22 結果:

結果不行?還是過程錯誤?

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

帖子: 146
主題: 41
精華: 0
積分: 229
點名: 307
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2024-12-20

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

7^#

發表於 2023-10-30 12:31 | 只看該作者

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

22txt.jpg (24.86 KB)

杜小平

　暱稱: 厚臉皮的學生

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

8^#

發表於 2023-10-30 13:06 | 只看該作者

回復 7# dou10801

With Workbooks.Open(xlsPath, , True).Sheets(1)
   .Cells.NumberFormatLocal = "@"
   Arr = .[A1].CurrentRegion
   brr = .[A1].CurrentRegion
~~

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

帖子: 146
主題: 41
精華: 0
積分: 229
點名: 307
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2024-12-20

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

9^#

發表於 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 = "@"
這個還是不行...........

杜小平

　暱稱: 厚臉皮的學生

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

10^#

發表於 2023-10-30 13:37 | 只看該作者

回復 9# dou10801

With Workbooks.Open(xlsPath, , True).Sheets(2) 執行結果怎樣不行?

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流