Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error message
Hello all, i have the code below which i got from this site and it works
great, just if cancel is selected i get an error and i would then like to give a message asking if they would really like to cancel, but im not sure where to put it in, could some body please help ? Sub GetDLoadFromSapStd() Dim mySavedPath As String Dim Cancel As Variant mySavedPath = CurDir ChDirNet "\\zadad01\sapinter\ZA-TM-RECON\DOWNLOAD" fileToOpen = Application _ .GetOpenFilename("Text Files (*.csv),*.csv") mySapFile = fileToOpen Workbooks.OpenText FileName:=mySapFile ChDirNet mySavedPath OptionCheckStd End If End Sub Les Stout *** Sent via Developersdex http://www.developersdex.com *** |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error message
Try this.
Sub GetDLoadFromSapStd() Dim mySavedPath As String ' Dim Cancel As Variant ' Dont see where needed mySavedPath = CurDir ChDirNet "\\zadad01\sapinter\ZA-TM-RECON\DOWNLOAD" ' ========== Insert from here ======= TryAgain: fileToOpen = Application.GetOpenFilename("Text Files (*.csv),*.csv") If fileToOpen = "False" Then If MsgBox("Do you want to cancel?", vbYesNo) = vbYes Then ChDirNet mySavedPath Exit Sub Else GoTo TryAgain End If End If ' ========== to here ========= mySapFile = fileToOpen Workbooks.OpenText Filename:=mySapFile ChDirNet mySavedPath OptionCheckStd ' End If ' Dont see where needed End Sub *** Sent via Developersdex http://www.developersdex.com *** |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error message
One more way:
Option Explicit Private Declare Function SetCurrentDirectoryA Lib _ "kernel32" (ByVal lpPathName As String) As Long Sub ChDirNet(szPath As String) Dim lReturn As Long lReturn = SetCurrentDirectoryA(szPath) If lReturn = 0 Then Err.Raise vbObjectError + 1, "Error setting path." End Sub Sub GetDLoadFromSapStd() Dim mySavedPath As String Dim FileToOpen As Variant Dim mySapFile As Variant Dim Cancel As Variant mySavedPath = CurDir On Error Resume Next ChDirNet "\\zadad01\sapinter\ZA-TM-RECON\DOWNLOAD" If Err.Number < 0 Then 'what should happen MsgBox "Please change to your own folder" Err.Clear End If FileToOpen = Application _ .GetOpenFilename("Text Files (*.csv),*.csv") 'one more check if filetoopen = false then 'user hit cancel exit sub end if mySapFile = FileToOpen Workbooks.OpenText Filename:=mySapFile ChDirNet mySavedPath 'OptionCheckStd 'End if End Sub Les Stout wrote: Hello all, i have the code below which i got from this site and it works great, just if cancel is selected i get an error and i would then like to give a message asking if they would really like to cancel, but im not sure where to put it in, could some body please help ? Sub GetDLoadFromSapStd() Dim mySavedPath As String Dim Cancel As Variant mySavedPath = CurDir ChDirNet "\\zadad01\sapinter\ZA-TM-RECON\DOWNLOAD" fileToOpen = Application _ .GetOpenFilename("Text Files (*.csv),*.csv") mySapFile = fileToOpen Workbooks.OpenText FileName:=mySapFile ChDirNet mySavedPath OptionCheckStd End If End Sub Les Stout *** Sent via Developersdex http://www.developersdex.com *** -- Dave Peterson |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error message
Thanks Edward and Dave for your input.
best regards, Les Stout *** Sent via Developersdex http://www.developersdex.com *** |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
error message: compile error, argument not optional | Excel Programming | |||
VBA Error Message "Compile Error...." | Excel Discussion (Misc queries) | |||
Excel XP error message Run Time Error 91 | Excel Programming | |||
changing the message in an error message | Excel Worksheet Functions | |||
How do I get rid of "Compile error in hidden module" error message | Excel Discussion (Misc queries) |