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 *** |
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 *** |
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 |
Error message
Thanks Edward and Dave for your input.
best regards, Les Stout *** Sent via Developersdex http://www.developersdex.com *** |
All times are GMT +1. The time now is 07:56 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com