彰化一整天的論壇

 找回密碼
 立即註冊
查看: 119|回復: 5

如何搜尋正確欄位名稱並將資料Copy至另外資料夾內

[複製鏈接]
發表於 2019-12-6 15:15:06 | 顯示全部樓層 |閱讀模式
Dear 老師 你好
我寫了一個巨集程式"詢問",目前遇到一個問題,如下敘述
1.目前發現vsDataAnrFunction裡面的欄位會改變,所以導致我目前寫的巨集程式會抓到不正確的"欄位名稱"
2.所以想問老師有無方法可以解決?
3.是否可以我提供欄位名稱,讓程式主動去搜尋vsDataAnrFunction檔案的欄位名稱,若相同則COPY該欄資料存放於"詢問"資料夾內"指定的欄位"


1206詢問.rar

106.96 KB, 下載次數: 7

回復

使用道具 舉報

發表於 2019-12-6 15:51:22 | 顯示全部樓層
您好,
    是否可以用圖說明您的問題,例如:底下是什麼指什麼欄位.
例如:vsDataAnrFunction裡面的欄位會改變
還有您改了什麼後,變成【抓到不正確的"欄位名稱"】

回復 支持 反對

使用道具 舉報

 樓主| 發表於 2019-12-6 17:47:03 | 顯示全部樓層
老師
請看下圖描述
圖(1)


圖(2)

描述(2)

描述(2)

描述(1)

描述(1)
回復 支持 反對

使用道具 舉報

發表於 2019-12-7 11:32:45 | 顯示全部樓層
peter631114 發表於 2019-12-6 17:47
老師
請看下圖描述
圖(1)

您好,
       您可以增加一個欄位輸入您要找的欄位.再把它設成變數,就可以動態讀取了.
excel20191207_01.jpg

1.增加要尋找的欄位

  1. Option Explicit

  2. Sub MO()

  3.    
  4.     Dim xDir As String, xPath As String, xWb As Workbook
  5.    
  6.     Dim sFindColumn As String
  7.    
  8.    
  9.     sFindColumn = Range("B1").Value
  10.    
  11.     'MO=vsDataAnrFunction
  12.    
  13.     xPath = ThisWorkbook.Path
  14.     xDir = Dir(xPath & "\vsDataAnrFunction*.csv", vbDirectory)
  15.    
  16.     Set xWb = Workbooks.Open(xPath & "\" & xDir)
  17.    
  18.     Range(sFindColumn).Select
  19.     Range("J1").Activate
  20.     Selection.Copy
  21.     Windows("詢問.xlsm").Activate
  22.     Sheets("Dump").Select
  23.     Range("A1").Select
  24.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  25.         :=False, Transpose:=False
  26.    
  27.     Columns("A:A").Select
  28.     Selection.Copy
  29.     Range("A1").Select
  30.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  31.         :=False, Transpose:=False
  32.    
  33.     Range("A2").Select
  34.     Sheets("執行").Select
  35.     Range("A6").Select
  36.         
  37.     xWb.Close
  38.     xDir = Dir
  39.    
  40.    
  41.    



  42. End Sub
複製代碼


詢問.xlsm

204.61 KB, 下載次數: 0

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

回復 支持 反對

使用道具 舉報

 樓主| 發表於 2019-12-8 11:52:11 | 顯示全部樓層
Dear老師

謝謝老師回覆,我又學會一招~~
因為此方法我必須要確認我的欄位為何?假設我知道欄位名稱,如下:是否可以用搜尋方式找到然後再貼到我存放的資料夾內

MeContext_id
cellRelHoAttRateThreshold
probCellDetectMedHoSuccTime
pciConflictDetectionEcgiMeas
probCellDetectLowHoSuccTime
problematicCellPolicy
pciConflictMobilityEcgiMeas
probCellDetectMedHoSuccThres
probCellDetectLowHoSuccThres


回復 支持 反對

使用道具 舉報

發表於 2019-12-8 22:35:13 | 顯示全部樓層
peter631114 發表於 2019-12-8 11:52
Dear老師

謝謝老師回覆,我又學會一招~~

可以的.您寫看看.有遇到問題再來討論.
回復 支持 反對

使用道具 舉報

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

本版積分規則

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

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

GMT+8, 2020-2-22 03:21 , Processed in 0.155149 second(s), 24 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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