型の不一致VBA

Question

を使用してヘッダー情報を取得するときに私はLMSの滝からの試験ヘッダ情報を引き出すために、コードに次を使用しています：

Dim usr_attr As LMSTestLabAutomation.AttributeMap 
Dim num_usr_att As Integer 
Dim user_data_array() As String 
Dim user_label_array() As String 

Set usr_attr = my_db.GetProperties("") 
num_usr_att = usr_attr.Count 
ReDim user_label_array(num_usr_att - 1) 
ReDim user_data_array(num_usr_att - 1) 

I = 0 
For I = 0 To num_usr_att - 1 
    user_label_array(I) = usr_attr.KeyNames.Item(I) 
    user_data_array(I) = usr_attr.Item(I) 
Next I 

'Enter the data into the report 
wb.Sheets("Multi-cut Report").Select ' Switch to the Report Page 
Set mcwb = wb.ActiveSheet 

wb.ActiveSheet.Range("C5") = user_data_array(Application.Match("UA::Test request number:", user_label_array, False) - 1) 
wb.ActiveSheet.Range("C6") = user_data_array(Application.Match("UA::Test Start Date", user_label_array, False) - 1) 
wb.ActiveSheet.Range("C7") = user_data_array(Application.Match("UA::Test By", user_label_array, False) - 1) 
wb.ActiveSheet.Range("C8") = user_data_array(Application.Match("UA::Test Location", user_label_array, False) - 1) '<<<< function fails here <<<< 

コードの最後の行は私に型の不一致を示します。しかし、コードに変更を加える前に（このコードブロックは含まれていませんでした）、型の不一致が発生せず、ヘッダーの値が返されます。このコードがコメントアウトされると、スクリプトはそれ以外の場合とまったく同じように実行されます。

Answer 1

次のコードは、コードの欠陥のある行の文字列がワイルドカードを使用する場合に実行されます。

wb.ActiveSheet.Range("C8") = user_data_array(Application.Match("UA::Test Location*", user_label_array, False) - 1) 

私はいくつかの点で、ヘッダファイルは、なぜそれ故、非印字文字が付加されていたことを信じています直接のマッチはうまくいかないでしょう。彼の助言のためにPatricKに感謝します。