ник: snipe
то что сделали - молодец
а вот как сделали - .........
все вам говорят
Set WrkBk = ExlApp.WorkBooks.Open "Путь"
|
а вы
Set oWbk = oExcel.Workbooks.OpenXML("c:\grid 2.xls")
|
говорят
WrkBk.SaveAs "c:\folder\n.xls", -4143
|
а вы игнорируете установочный параметр
не хорошо
тут вся хитрость в том что бы ексель сам преобразовал формат в удобоваримый ему вид, а вы сразу не даете ему это сделать