請問各位大神如何簡化這個 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請問各位大神如何簡化這個

返回列表下一主題上一主題發帖

[發問] 請問各位大神如何簡化這個

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2025-3-24

2016猴年全勤獎章

1^# 跳轉到 »

發表於 2019-12-18 16:39 | 顯示全部帖子

2# 已經OK了, 以下衹是防止一下。

Sub zz()
Dim myFileName As String, s$
s = "JKLMNPQRS"
For i = 1 To Len(s)
If [B6] = "C" & Mid(s, i, 1) Then
s = "C" & Mid(s, i, 1)
Workbooks.Open ThisWorkbook.Path & "\paper\300\XZU600\" & s & "\" & s & ".xlsm", 1
End If
Next
End Sub

複製代碼

靜思自在 : 太陽光大、父母恩大、君子量大，小人氣大。

返回列表下一主題上一主題