[發問] 請教如何尋找遠端磁碟中excel檔案工作表結果

請教各位大大:
我在工作上有一個遠端公用磁碟
要用何種方式可以讓大家都去查詢公用磁碟上某個excel檔案
進而帶出各工作表中所需要的尋找目標

chengtoo

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 18
點名: 0
作業系統: WIN7
軟體版本: OFFICE2003
閱讀權限: 10
性別: 男
註冊時間: 2012-7-3
最後登錄: 2025-11-16

2^#

發表於 2013-3-14 21:56 | 顯示全部帖子

A.rar (151.39 KB) 回復 1# chengtoo

TOP

chengtoo

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 18
點名: 0
作業系統: WIN7
軟體版本: OFFICE2003
閱讀權限: 10
性別: 男
註冊時間: 2012-7-3
最後登錄: 2025-11-16

3^#

發表於 2013-3-15 19:29 | 顯示全部帖子

RE: 請教如何尋找遠端磁碟中excel檔案工作表結果

name.rar (15.44 KB) 下面基本上可以代替我要的結果
只是想請各位大大幫忙看一下
如果我要的結果不是要以連結的顯示而是要直接秀出結果該怎麼修改

另外假設沒收尋出結果會一直出現錯誤在最後面的 End If 請幫忙看看

Sub QuickSearch()
  Dim wks As Excel.Worksheet
  Dim rCell As Excel.Range

  Dim szLookupVal As String
  szLookupVal = InputBox("key in", "key in msg", "")


  If szLookupVal = "" Then Exit Sub

Application.ScreenUpdating = False
Application.DisplayAlerts = False


For Each wks In ActiveWorkbook.Worksheets
   If wks.Name = "Result" Then
      wks.Delete
   End If
Next wks

Sheets.Add ActiveSheet

ActiveSheet.Name = "Result"

With Cells(1, 1)
   .Value = "下面也有所需要資訊" & szLookupVal
   .EntireColumn.AutoFit
   .HorizontalAlignment = xlCenter
End With

ActiveSheet.Next.Select

i = 2

For Each wks In ActiveWorkbook.Worksheets

   With wks.Cells
      Set rCell = .Find(szLookupVal, , , xlWhole, xlByColumns, xlNext, False)
      If Not rCell Is Nothing Then
      szFirst = rCell.Address
      Do

         rCell.Hyperlinks.Add Sheets("Result").Cells(i, 1), "", "'" & wks.Name & "'!" & rCell.Address

         Select Case bTag
                  Case True
                     rCell.Interior.ColorIndex = 19
         End Select
         Set rCell = .FindNext(rCell)
         i = i + 1
      Loop While Not rCell Is Nothing And rCell.Address <> szFirst
      End If
   End With
Next wks

Set rCell = Nothing

If i = 2 Then
   MsgBox "所要查找的值{" & szLookupVal & "}在工作表中沒有", 64, "找不到喔"


   End If
Application.ScreenUpdating = True
   Application.DisplayAlerts = True

End Sub

TOP

chengtoo