Olá. Estou com problemas em transferir algumas datas tipo Baseline Start, Baseline Finish, Actual Start, Actual Finish do MSProject para uma planilha no excel. Aqui está o trecho do código.
Dim xlSheet As Excel.Worksheet
Dim wb As Workbook
Dim Prog As MSProject.Project
Dim Proj As MSProject.Application
Dim t As Task
Dim i As Long
[...]
For Each t In Prog.Tasks
i = i + 1
Set xlSheet = wb.Worksheets(6)
xlSheet.Cells(i, 1).Value = Proj.GetCellInfo(7, i).Task.Name
xlSheet.Cells(i, 2).Value = Mid((Proj.GetCellInfo(10, i).Task.BaselineStart), 1, 11)
xlSheet.Cells(i, 3).Value = Mid((Proj.GetCellInfo(11, i).Task.BaselineFinish), 1 , 11)
xlSheet.Cells(i, 4).Value = Mid((Proj.GetCellInfo(12, i).Task.ActualStart), 1 , 11)
xlSheet.Cells(i, 5).Value = Mid((Proj.GetCellInfo(13, i).Task.ActualFinish), 1 , 11)
xlSheet.Cells(i, 6).Value = Proj.GetCellInfo(14, i).Task.ResourceNames
Next t
Quando eu uso a substring mid, é para retirar os horários que vem junto com a data. Porém quando esta data é passada para a planilha no excel, ela vem com formato mm/dd/yyyy. Se eu não usar a substring, a data vem no formato dd/mm/yyyy porém com as horas.
Quando não uso uma substring, a data é passada assim 05/12/2016 08:00:00
Quando eu uso a função Mid, o valor fica assim.
Porém, a data é passada para a planilha com o seguinte valor.
O que poderia estar causando essa inversão no formato?
"mm/dd/yyyy"
, provavelmente o seu sistema está configurado em Inglês, o que justificaria a mudança. Experimente colocarxlSheet.Cells(i,2).NumberFormat = "dd/mm/yyyy"
após a cópia dos dados.