ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¿ï¾ÜÀÉ®×Âন¤å¦rÀÉ°ÝÃD.

[µo°Ý] ¿ï¾ÜÀÉ®×Âন¤å¦rÀÉ°ÝÃD.

1.¿ïÀÉ[21.XLSX]Âন21.TXT¥i¥H,¬°¦ó¿ïÀÉ[22.XLSX]Âন22.TXT¤£¦æ,°ÝÃD¦b¨º¸Ì?
2.¥i§_[«ü©w¤u§@ªí]:
MP1=Range(¡§B7¡¨)
'With Workbooks.Open(xlsPath, , True).Sheets(MP1)  '¦p¦ó«ü©w¤u§@ªí=>¤£¦æ
With Workbooks.Open(xlsPath, , True).Sheets(1)         '¥i¦æ.

aaa.rar (39.4 KB)

§ù¤p¥­

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-10-30 11:16 ½s¿è

¦^´_ 1# dou10801


¤èªk1.:
With Workbooks.Open(xlsPath, , True).Sheets(Val(MP1))
"3"¬O¦r¦ê,«ü©w3¯Á¤Þ¸¹¤u§@ªí¥²¶·±N¦r¦ê "3" Âà¤Æ¬°¼Æ­È 3
20231030-1.jpg
2023-10-30 11:05


¤èªk2.:
«Å§i¬°µu¾ã¼Æ:
    Dim MP1%
    MP1 = Range("B7")
    With Workbooks.Open(xlsPath, , True).Sheets(MP1)
20231030-2.jpg
2023-10-30 11:16
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 2# Andy2483 ·PÁ«e½ú¦^ÂÐ,21-1.TXT¬O§Ú¶·¨Dªº§¹¦¨ÀÉ,§ïWith Workbooks.Open(xlsPath, , True).Sheets(Val(MP1))«á,²£¥Í21.TXTªºÀɮפº®e·|Åܦ¨ 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)

§ù¤p¥­

TOP

¦^´_ 3# dou10801


   
mcs = "'" & mcs1 & Cells(R, MDS2) & Format(Cells(R, MDS3),~~
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 4# Andy2483 ·|¤£·|¬Oª©¥»°ÝÃD,§Úªº¬O2010ª©,ÁÙ¬O¤£¦æ.
§ù¤p¥­

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-10-30 12:25 ½s¿è

¦^´_ 5# dou10801


    ¿ï22 µ²ªG:
20231030-1.jpg
2023-10-30 12:23


µ²ªG¤£¦æ?ÁÙ¬O¹Lµ{¿ù»~?
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 6# Andy2483 ·PÁ«e½ú¦h¦¸¦^ÂÐ,§Ú²£¥ÍÀɬO³o¼Ë.
22txt.jpg
§ù¤p¥­

TOP

¦^´_ 7# dou10801


   
With Workbooks.Open(xlsPath, , True).Sheets(1)
      .Cells.NumberFormatLocal = "@"
      Arr = .[A1].CurrentRegion
      brr = .[A1].CurrentRegion
~~
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 8# Andy2483
With Workbooks.Open(xlsPath, , True).Sheets(1)
      .Cells.NumberFormatLocal = "@"
¨ú²Ä¤@¤u§@ªí¥¿±`¤F.


With Workbooks.Open(xlsPath, , True).Sheets(2)    ©Î   With Workbooks.Open(xlsPath, , True).Sheets(val(mp1)
      .Cells.NumberFormatLocal = "@"
³o­ÓÁÙ¬O¤£¦æ...........
§ù¤p¥­

TOP

¦^´_ 9# dou10801


    With Workbooks.Open(xlsPath, , True).Sheets(2) °õ¦æµ²ªG «ç¼Ë¤£¦æ?
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD