- ©«¤l
- 15
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 54
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2015-2-13
- ³Ì«áµn¿ý
- 2024-3-1
|
[µo°Ý] ½Ð°Ý¦U¦ì¤j¯«¦p¦ó²¤Æ³oÓ
§Ú»ÝnB6®æ¤l¤º®e¥h´M§ä¹ïÀ³ªºÀɮ׶}±Ò¨Ï¥Î
¥Ø«eµ{¦¡½X¦p¤U¡A¦]¤Ó¦hºØÃþ¥ªO¨Ï¥Î·|t²ü¤£¤F¡A
ÁÂÁÂ- Dim myFileName As String
- myFileName = Range("B6")
- '300
- If Range("B6") = "CJ" Then
- myFileName = ThisWorkbook.Path & "\paper\300\XZU600\CJ\CJ.xlsm"
- Workbooks.Open Filename:=myFileName, UpdateLinks:=True
- End If
- If Range("B6") = "CK" Then
- myFileName = ThisWorkbook.Path & "\paper\300\XZU600\CK\CK.xlsm"
- Workbooks.Open Filename:=myFileName, UpdateLinks:=True
- End If
- If Range("B6") = "CL" Then
- myFileName = ThisWorkbook.Path & "\paper\300\XZU600\CL\CL.xlsm"
- Workbooks.Open Filename:=myFileName, UpdateLinks:=True
- End If
- If Range("B6") = "CM" Then
- myFileName = ThisWorkbook.Path & "\paper\300\XZU600\CM\CM.xlsm"
- Workbooks.Open Filename:=myFileName, UpdateLinks:=True
- End If
- If Range("B6") = "CN" Then
- myFileName = ThisWorkbook.Path & "\paper\300\XZU600\CN\CN.xlsm"
- Workbooks.Open Filename:=myFileName, UpdateLinks:=True
- End If
- If Range("B6") = "CP" Then
- myFileName = ThisWorkbook.Path & "\paper\300\XZU630\CP\CP.xlsm"
- Workbooks.Open Filename:=myFileName, UpdateLinks:=True
- End If
- If Range("B6") = "CQ" Then
- myFileName = ThisWorkbook.Path & "\paper\300\XZU640\CQ\CQ.xlsm"
- Workbooks.Open Filename:=myFileName, UpdateLinks:=True
- End If
- If Range("B6") = "CR" Then
- myFileName = ThisWorkbook.Path & "\paper\300\XZU640\CR\CR.xlsm"
- Workbooks.Open Filename:=myFileName, UpdateLinks:=True
- End If
- If Range("B6") = "CS" Then
- myFileName = ThisWorkbook.Path & "\paper\300\XZU640\CS\CS.xlsm"
- Workbooks.Open Filename:=myFileName, UpdateLinks:=True
- End If
½Æ»s¥N½X |
|