VBA-日期的.NumberFormat错误

Question

My problem is that the format of my column DATE is Mar 16 2016 3:19PM . The format that I need for my code to run is 3/16/2016 and now I'm try to convert it. This is the error I get with using my code:

Run-time error '13' Type mismatch

this is the line that i got the error

data = Intersect(Sheet2.Columns("O"), Sheet2.UsedRange).NumberFormat = "mm/dd/yyyy"

Here's my code:

Public Sub Selection()

Dim file2 As Excel.Workbook
Dim Sheet2 As Worksheet, data(), i&

    Set Sheet2 = Workbooks.Open(TextBox2.Text).Sheets(1)

    ' load the data from column O
    data = Intersect(Sheet2.Columns("O"), Sheet2.UsedRange).NumberFormat = "mm/dd/yyyy"
    'set the title
    data(1, 1) = "Month"
    ' extract the month
    For i = 2 To UBound(data)
    If VarType(data(i, 1)) = vbDate Then
      data(i, 1) = Month(data(i, 1))
    End If
  Next

  ' write the data back to the sheet
  Sheet2.UsedRange.Columns(Sheet2.UsedRange.Columns.Count + 1) = data

End Sub

I've tried using:

outputWksht.Columns(24).NumberFormat = "mm/dd/yyyy"

and

Cells(1, 1).Value = Format(StartDate, "dd/mm/yyyy")

There are no errors but its not working, I wonder why??

Answer 1

你可以试试这个吗？

Cells(1, 5).NumberFormat = "dd/mm/yyyy"

Answer 2

Try

  Dim data As Range
  Set data = Intersect(Sheet2.Columns("O"), Sheet2.UsedRange)
  data.NumberFormat = "mm/dd/yyyy"

Answer 3

Try changing this:

  For i = 2 To UBound(data)
  If VarType(data(i, 1)) = vbDate Then
    data(i, 1) = Month(data(i, 1))
  End If
Next

to this:

For i = 2 To UBound(data)
  data(i, 1) = Month(CDate(data(i, 1)))
Next i