彰化一整天的論壇

 找回密碼
 立即註冊
查看: 968|回復: 17

老師我的問題是用哪個比較好

[複製鏈接]
發表於 2018-8-14 10:56:30 | 顯示全部樓層 |閱讀模式
我要用一個連結可是不知道是用VBA好還是直接用涵數比較好
圖1.png 圖2.png 圖3.png 圖4.png 公司的機台會自動存取資料我需要用EXCEL如圖1我要取那9點的數值自動存取的路徑為\\mbb20_04G_B\laserData我該如何抓取ㄋ 裁磨TTS2,板厚,亮點檢驗紀錄表-2018-08-02.xls (1.17 MB, 下載次數: 106)
回復

使用道具 舉報

發表於 2018-8-14 14:36:19 | 顯示全部樓層
本帖最後由 imingho 於 2018-8-14 14:40 編輯

若您會ExcelVBA用VBA就不用在增加輔助欄位,若直接用公式,則要有輔助欄位.您可以先試著寫看看.這裡會用到二層迴圈,您可以先寫一個成功,其他再用迴圈解決.
PS:您的程式加密,要如何幫您看程式碼給建議.
回復 支持 反對

使用道具 舉報

 樓主| 發表於 2018-8-15 09:11:03 | 顯示全部樓層
二層迴圈是甚麼
回復 支持 反對

使用道具 舉報

發表於 2018-8-15 09:14:30 | 顯示全部樓層

請看youtube教學.
回復 支持 反對

使用道具 舉報

發表於 2018-8-15 09:29:01 | 顯示全部樓層


底下是我用錄製巨集的程式碼,您那9個數字都要連到同一個檔案嗎?若是我再跟您講怎麼改.

  1. Sub 巨集1()
  2. '
  3. ' 巨集1 巨集
  4. '

  5. '
  6.     ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
  7.         "1684239-BC3-0N\1684239-BC3-0N-M80421000C.csv"
  8.     Application.WindowState = xlNormal
  9. End Sub
複製代碼


裁磨TTS2,板厚,亮點檢驗紀錄表-2018-08-02.xls

1.16 MB, 下載次數: 2

售價: 2 金錢  [記錄]  [購買]

回復 支持 反對

使用道具 舉報

 樓主| 發表於 2018-8-15 11:03:16 | 顯示全部樓層
每個批號會有不同的值所以會是不同的檔案
回復 支持 反對

使用道具 舉報

發表於 2018-8-15 12:55:50 | 顯示全部樓層
windbjo4 發表於 2018-8-15 11:03
每個批號會有不同的值所以會是不同的檔案

您可以先用函數做給我看,您要的結果嗎?
回復 支持 反對

使用道具 舉報

發表於 2018-8-16 14:31:51 | 顯示全部樓層
imingho 發表於 2018-8-15 12:55
您可以先用函數做給我看,您要的結果嗎?

我看不懂您那9個值是用什麼規則填進去的.
回復 支持 反對

使用道具 舉報

 樓主| 發表於 2018-8-16 20:21:24 | 顯示全部樓層
那是一台自動測量機會測量物品的厚度然會會把數據存放在\\mbb20_04G_B\laserData這個路徑內
名稱一批版子會有一個資料夾資料夾的主目錄會是用料號來顯示子目錄是用料號+批號來顯示
那9點就是要把它自機台自動存放的EXCEL資料中的B2-B10的數據找出來放到報表中
回復 支持 反對

使用道具 舉報

發表於 2018-8-16 23:45:42 | 顯示全部樓層
本帖最後由 imingho 於 2018-8-16 23:57 編輯
windbjo4 發表於 2018-8-16 20:21
那是一台自動測量機會測量物品的厚度然會會把數據存放在\\mbb20_04G_B\laserData這個路徑內
名稱一批版子會 ...

那要用公式及VBA才有辦法完成.
因為插入連結要先開啟檔案,插入後再關閉檔案才可以,因為您的資料第12列找不到,我把程式先寫成11列.插入要完整路徑例如
  1. ='D:\tmh\excel\20180816\1684102-FA1-0N\[1684102-FA1-0N-M80431100A.csv]1684102-FA1-0N-M80431100A'!$B$2
複製代碼


底下是自動填入的方法
  1. Private Sub CommandButton1_Click()
  2.     Dim i As Integer
  3.     Dim j As Integer
  4.     Dim m As Integer    '列數
  5.     Dim p As String '路徑
  6.     Dim f As String '檔案名稱
  7.     Dim pf As String '路徑與檔案
  8.    
  9.     For i = 1 To 11 '26 '填26列
  10.         m = 10 + (i - 1) * 4
  11.         p = Excel.ActiveWorkbook.Path & "\" & Range("B" & m).Value & "\"
  12.         f = Range("B" & m).Value & "-" & Range("C" & m).Value
  13.         
  14.         pf = "='" & p & "[" & f & ".csv" & "]" & f
  15.         
  16.         '開啟檔案
  17.         t = p & f & ".csv"
  18.         Workbooks.Open Filename:=t
  19.         
  20.         For j = 1 To 9  '填9欄
  21.             Cells(m, 13 + j).Value = pf & "'!$B[        DISCUZ_CODE_0        ]quot; & j + 1
  22.             'Debug.Print pf & "'!$B[        DISCUZ_CODE_0        ]quot; & j + 1
  23.         Next
  24.         
  25.         '關閉檔案
  26.         ActiveWindow.Close
  27.         
  28.     Next
  29.    
  30.     MsgBox "執行完成"
  31. End Sub
複製代碼



裁磨TTS2,板厚,亮點檢驗紀錄表-2018-08-02.xls

1.18 MB, 下載次數: 1

售價: 5 金錢  [記錄]

回復 支持 反對

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  

GMT+8, 2019-12-10 21:54 , Processed in 0.156514 second(s), 24 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表