EXCEL VBA讀取XML解析取出資料

XML檔內容如下


<Form formVersionId="5449540f">
  <FormFieldValue>
    <FieldItem fieldId="0" fieldValue="180900010" realValue="" enableSearch="True" />
    <FieldItem fieldId="1" fieldValue="台北" realValue="ec3a9bd9" enableSearch="True" />
    <FieldItem fieldId="2" fieldValue="XXXXX" />
    <FieldItem fieldId="9" fieldValue="單位" realValue="" enableSearch="True" />
    <FieldItem fieldId="5" fieldValue="台北醫院" realValue="" enableSearch="True" fillerName="XXXX" fillerUserGuid="e1aee539" fillerAccount="0122" fillSiteId="" />
    <FieldItem fieldId="7" fieldValue="2018/09/20" realValue="" enableSearch="True" fillerName="XXXXXX" fillerUserGuid="e1aee539" fillerAccount="0122" fillSiteId="" />
    <FieldItem fieldId="3" fieldValue="08:30"  enableSearch="True" fillerName="XXXX" fillerUserGuid="e1aee539" fillerAccount="0122"  />
    <FieldItem fieldId="8" fieldValue="2018/09/20" fillerName="XXXXX" />
    <FieldItem fieldId="4" fieldValue="09:00" fillerName="XXXXX" />
    <FieldItem fieldId="6" fieldValue="TEST"  fillerName="XXXXX"/>
  </FormFieldValue>
</Form>





VBA程式

            Dim objXML As New MSXML2.DOMDocument60 '啟用XML解析器

            If Not objXML.LoadXML(wkfDOC!Content) Then
                Err.Raise objXML.parseError.ErrorCode, , objXML.parseError.reason
            End If
         

            Dim nodeList As MSXML2.IXMLDOMNodeList

            Set nodeList = objXML.SelectNodes("/Form/FormFieldValue/FieldItem")  '==>對應上面XML的第3層元素
            If Not nodeList Is Nothing Then
                 Dim node As MSXML2.IXMLDOMNode
                 Dim name As String
                 Dim value As String
     
                 For Each node In nodeList
                    ' Could also do node.attributes.getNamedItem("name").text
                    name = node.SelectSingleNode("@fieldId").Text    '==>元素裡面的屬性名稱
                    value = node.SelectSingleNode("@fieldValue").Text    '==>元素裡面的屬性名稱
                    Debug.Print "fileId=" & name & "   value=" & value
                 Next node
            End If







留言

張貼留言

這個網誌中的熱門文章

java 數字轉字串 字串轉數字

1. 數字轉字串 1-1 整數轉字串                int i = 7; String s = Integer.toString(i); or String s = "" + i; // 直接強制轉型 1-2  長整數轉字串 long x=10; String s = Long.toString(x); 1-3  雙精度數字轉字串 double x=10;                String s = Double.toString(x);     1-4 浮點數字轉字串 float x=10; String s = Float.toString(x); 2. 字串轉數字 2-1 字串轉整數 String str = "10"; int i = Integer.valueOf(str).intValue();  // 第一種方法 int j = new Integer(str).intValue(); // 第二種方法 int k = Integer.parseInt(str);  // 第三種方法 2-2 字串轉雙精度數字 double d = Double.valueOf(str).doubleValue(); 2.3 字串轉長型態數字                long l = Long.valueOf(str).longValue(); or long l = Long.parseLong(str); 2.4 字串轉浮點型態數字                float f = Float.valueOf(str).floatValue();
閱讀完整內容

MS sqlServer資料庫移轉至MySQL-->利用MySQL WorkBench

圖片
1.下載MySQL WorkBench並安裝。網址 http://www.mysql.com/products/workbench/   WorkBench開啟後執行畫面 2.執行[Database Migration] MySQL沒有內建各資料庫的DRIVER，是透過ODBC來轉資料庫，所以在轉換前要先設定來源資料庫的ODBC。 3.設定完ODBC連線後點選[Start Migration]，開始轉換資料庫步驟。 4.設定來源資料庫的連線資料，要轉換的資料庫名稱也要輸入，免得原本MSSQL的資料庫太多而造成後續轉換出現題，設定完後按[Next]。 5.設定目的地MySQL的連線參數 6.下一步，取得來源資料庫的Table schema。基本上不會有什麼問題，如果出現錯誤可能是在設定來源資料庫時沒有指定DATABASE造成。 7.選擇要轉換後MySQL的schema 8.下一步，轉換檢查 9.下一步，Show出來源資料庫的Object，如果有要修改選取的物件,可以在這裡增刪 。 10.下一步，開始轉換 11.手動修改轉換的指令(如果有需要) 12.下一步 13.建立目的地的資料庫，如果有驚嘆號出現,要看一下LOG出現什麼訊息。 14.轉換結果 15.下一步 16.下一步，開始轉換資料庫 17,轉換結果報表 18.結束
閱讀完整內容

sql server 15023 error [SQL SERVER問題: 使用者、組或角色 '*****' 在當前資料庫中已存在]

一般在建立使用者時即可指定使用者的對應，如果使用者建立後，才發現無法利用 Management Studio 調整對應(出現 錯誤：15023)可以利用下面的 指令 調整  Use [myDB資料庫名稱] go sp_change_users_login 'update_one', ' DBuser( 資料庫使用者) ', ' PowerUser( 系統登入的使用者) ' 將myDB資料庫的使用者 DBuser 對應到-->系統登入的使用者 PowerUser ，也就是說 PowerUser 登入系統後，對於資料庫(例如myDB) 的存取權限就相當於 DBuser!
閱讀完整內容