VB.NET Excel Resource File

[MininiM]

Boas,

Se no final da função SaveToDisk colocar uma linha:

Dim xlbook as object 'Excel workbook
xlbook = Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.Location) & "\TesteVB.xlsx"


Este directório seria o dos recursos ou o após copiado para a pasta da App?
E depois, repetia a num Else do If do Load. Ou seja, verifica se existe:
- se não - corre a função SaveToDisk - que acaba com a criação da variável
- se sim - cria a variável no Else.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not File.Exists(Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembl​y.Location) & "\TesteVB.xlsx") Then
SaveToDisk("TesteVB.xlsx", Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.Location) & "\TesteVB.xlsx")
Else
xlbook = Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.Location) & "\TesteVB.xlsx"
End If
End Sub

E o Dim passa para -Public xlbook as object 'Excel workbook - que ponho no módulo.


E assim acaba esta minha saga que já dura algum tempo hehe
Cumps

---

Enganei-me,

xlbook no post anterior seria outra variável, xlboopath,
e depois:
xlbook = xlapp.workbook.Open(xlbookpath) para abrir o ficheiro.

Agora sim, done.

Espero que funcione. Obrigado