Борьба за сохранение файла xlsx в VBA

Im новое для VBA, поэтому любая помощь оценивается. У меня проблема с моей подсистемой SaveFile. Это фактически позволяет мне сохранить файл, но когда я попытаюсь открыть его снова, Excel не распознает его как файл Excel. Фактически, если я щелкнул правой кнопкой мыши файл со своего рабочего стола и проверил свойства, тип файла - «Файл». Я прочитал материал форматирования, но не могу сохранить этот файл как обычный формат xlsx. Я смог получить файл excel с поддержкой макросов, чтобы работать правильно, но это не то, что я хочу. Мой код ниже. Пожалуйста, задавайте вопросы, если это не ясно!Борьба за сохранение файла xlsx в VBA

Благодарим за помощь.

Sub SaveFile()

MsgBox ("You will now be prompted to save your file") 'Notifies User 
savename = Application.GetSaveAsFilename() 'Gets directory/name 
ActiveWorkbook.SaveAs Filename:=savename, FileFormat:=51 'Something iswrong

End Sub

Вот картинка файла "Formatless"

источник

2016-06-01 champ8686

Я действительно просто хочу удалить макрос при сохранении. – champ8686

Это должно нормально работать. Какую версию Excel вы используете? Получаете ли вы уведомление из Excel, что сохранение удалит макросы? – Simon

Да, я получаю это уведомление. Ill отображает изображение неформатированного файла. – champ8686

При сохранении файла вы должны сохранить его с расширением:

Sub SaveFile() 

    savename = Application.GetSaveAsFilename(fileFilter:="Exel Files (*.xlsx), *.xlsx")) 
    ActiveWorkbook.SaveAs Filename:=savename, FileFormat:=51 

End Sub

источник

2016-06-01 14:15:26 Simon

Спасибо, Саймон! Похоже, что FileFormat в SaveAs фактически не добавляет расширение? Это просто распознавание FileFormat? – champ8686

Борьба за сохранение файла xlsx в VBA

ответ

Смежные вопросы