Eu peguei esse código de algum site e adaptei pra meu arquivo, mas quando abre e eu até escrevo o nome do arquivo e clicko em salvar, salva e "cria" o arquivo aparentemente. Mas quando eu vou abrir o arquivo que salvou, é como se o arquivo não tivesse
realmente sido salvo, quando eu tento abrir fala essa mensagem: "O excel não pode abrir esse arquivo 'Nome.xlsx' porque o formato ou a extensão do arquivo não é valida. Verifique se o arquivo não está corrompido e a extensão corresponde ao formato do
arquivo. Esse é o codigo:
Dim myStream As Object
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
myStream = SaveFileDialog1.OpenFile()
If (myStream IsNot Nothing) Then
myStream.Close()
End If
End If
Detalhe:eu criei uma caixa do savefiledialog no design do app, e coloquei essa extensão que é a correta da Pasta de Trabalho do Excel:
DefaultExt: .xlsx
Filter: Todos os arquivos|*.*|Pasta de Trabalho do Excel| *.xlsx
Filename: GeshemProject