View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
papou[_2_] papou[_2_] is offline
external usenet poster
 
Posts: 112
Default need help with using VBA to access a second spreadsheet

Hello

- Application.GetOpenFilename returns the FullName (as string) but
some functions want only the Name


Dim Fullname, JustBookName As String
Fullname = Application.GetOpenFilename(filefilter:="Excel Files (*.xls),
*.xls")
If Fullname < False Then
JustBookName =
CreateObject("Scripting.FilesystemObject").GetFile Name(Fullname)
MsgBox JustBookName: End If

HTH
Cordially
Pascal

a écrit dans le message de news:
...
I am writing a "client" spreadsheet using userforms. It needs to be
able to read from a "data" Workbook, and later on it will need to
write back to that workbook. I do not want to "lock" up the "data"
workbook for the entire duration. When finished, the "client" will
run with the Excel application hidden, so only the userforms will be
visible.



I am using "Application.GetOpenFilename" to find the name of the file
and storing that string in a cell.

I do not want the user to see the "data" workbook.



Problems I am experiencing:

-Opening the data workbook with the Excel application being "hidden"
the entire time

- Application.GetOpenFilename returns the FullName (as string) but
some functions want only the Name



Separate issue:

When executing the close command from the userforms, the VBA is
leaving the Excel application still running. How can I make the
actual Excel application close, unless of course the user has other
spreadsheets open?

THANKS