[已解决]選擇對應的字元，來進行開啓的檔案

ioi_chan

請問各位大大， 我有001.xlsm, 002.xlsm, 003.xlsm~~~010.xlsm，共十個檔案，我想利用vba，檢視A1是什麼字元， 來開啓對應的檔案，例如：A1的字元是001，則開啓001.xlsm，如果是002，則開啓002.xlsm, 如此類推，謝謝各位大大幫忙

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-5-11 17:02

按你的附件，假设在E1单元格内输入字元，然后执行以下代码。

1. Sub aaa()
   
2. Dim rng As Range
   
3. Set rng = Columns(1).Find([e1])
   
4. If Not rng Is Nothing Then
   
5.   Workbooks.Open "\" & rng.Offset(, 2)
   
6. Else
   
7.   MsgBox "Error!"
   
8. End If
   
9. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

假设目标文件与已打开文件在同一路径下。

1. Sub aaa()
   
2. Workbooks.Open ThisWorkbook.Path & "" & Format([a1], "000") & ".xlsm"
   
3. End Sub

复制代码

ioi_chan

大灰狼1976 发表于 2017-5-11 11:05
假设目标文件与已打开文件在同一路径下。

如果，A1字元與檔案名稱不同，例如：假設A1字元為310，這時就要開啓001.xlsm,
如果A1字元是126時就要開啓002.xlsm,
如果A1字元是65RR時就要開啓003.xlsm.
如果A1字元是39FR時就要開啓004.xlsm.

.
.
.

而且開啓位置在網路上ABC.com\Documents\001.xlsm,
請問怎樣可以開啓相對應的10個檔案？再次感激，謝謝！

大灰狼1976

你所说的字元对应文件名，有列表吗，因为没有规律，我不好判断。
其他都没问题。
或者你做个简单的附件给我，我直接添加功能后发给你。

ioi_chan

大灰狼1976 发表于 2017-5-11 15:45
你所说的字元对应文件名，有列表吗，因为没有规律，我不好判断。
其他都没问题。
或者你做个简单的附件给 ...

請看附件，謝謝

大灰狼1976

按你的附件，假设在E1单元格内输入字元，然后执行以下代码。

1. Sub aaa()
   
2. Dim rng As Range
   
3. Set rng = Columns(1).Find([e1])
   
4. If Not rng Is Nothing Then
   
5.   Workbooks.Open "\" & rng.Offset(, 2)
   
6. Else
   
7.   MsgBox "Error!"
   
8. End If
   
9. End Sub

复制代码

ioi_chan

大灰狼1976 发表于 2017-5-11 17:02
按你的附件，假设在E1单元格内输入字元，然后执行以下代码。

已經成功了， 謝謝大大的幫助