VBA Iは、次の形式でExcelシートにデータを持っている

Question

をこれまでに文字列を変換：

 
ItemCode       DeliveryDate 
5456987        24.01.2009 
5456988           
5456989        12.24.2009 
5456990        12/24/2009 

Iは配列内DeliveryDateの値が格納されています。私は、日付の基本を決定し、その結果を新しいシートに印刷する必要があります。だから私は、配列に値を変換する必要があります。

Dim current as Date, highest as Date, result() as Date 
For Each itemDate in DeliveryDateArray 
    current = CDate(itemDate) 
    if current > highest then 
     highest = current 
    end if 
    ' some more operations an put dates into result array 
Next itemDate 
'After activating final sheet... 
Range("A1").Resize(UBound(result), 1).Value = Application.Transpose(result) 

残念ながら、CDate関数（）関数は、エラーがスローされます：

• 解析：

  Run-time error '13':

  Type mismatch

  はできVBAでの機能があります文字列はとなり、日付形式はとなり、日付オブジェクトが返されます。

• 文字列が空であるか型が不正な場合（ループ内での比較のため）、空の日付オブジェクトを返します。

は編集：

エラーを再現するには、単にあなたが念itemDate ISNを作ってみましたが、それは空のデータ行にエラーを投げることができたよう myDate = CDate("24.01.2009")

Answer 1

Replaceを試してみてください。上記の数回述べた問題は、CDate関数がその期間に窒息していることです。 replaceを使用して、スラッシュに変更することができます。任意の日付形式を解析できるvbaの関数に関する質問に答えるために、非常に限られたオプションはありません。

ws.Range（ "A：A"）

Dim current as Date, highest as Date, result() as Date 
For Each itemDate in DeliveryDateArray 
    Dim tempDate As String 
    itemDate = IIf(Trim(itemDate) = "", "0", itemDate) 'Added per OP's request. 
    tempDate = Replace(itemDate, ".", "/") 
    current = Format(CDate(tempDate),"dd/mm/yyyy") 
    if current > highest then 
     highest = current 
    end if 
    ' some more operations an put dates into result array 
Next itemDate 
'After activating final sheet... 
Range("A1").Resize(UBound(result), 1).Value = Application.Transpose(result) 

Answer 2

が見える実行CDate（）関数を実行する前に空ではありませんか？私はこれがあなたの問題かもしれないと思います。

Answer 3

私はこのコードを使用する。FormulaR1C1 = "= DATEVALUE（RC [1]）"

カラムAはなりMM/DD/YYYY

RCは、[1]の列B、テキスト文字列、例えば、01/30/12で、これは、このサイトによるとDATEのTYPE