dou10801

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

Andy2483

¦^´_ 5# dou10801


    ¿ï22 µ²ªG:

¤U¸ü (92.11 KB)

2023-10-30 12:23

µ²ªG¤£¦æ?ÁÙ¬O¹Lµ{¿ù»~?

dou10801

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

Andy2483

¦^´_ 3# dou10801


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

dou10801

¦^´_ 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

Andy2483

¦^´_ 1# dou10801


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

¤U¸ü (37.48 KB)

2023-10-30 11:05

¤èªk2.:
«Å§i¬°µu¾ã¼Æ:
    Dim MP1%
    MP1 = Range("B7")
    With Workbooks.Open(xlsPath, , True).Sheets(MP1)

¤U¸ü (29.85 KB)

2023-10-30 11:16