stop the macro when the user selects “Cancel” in the select file window.

Valentin · Jul 27, 2011

I have the following macro.
Sub ImportText ()
Renew
CopyToPage
RemoveDupl
End Sub

Sub Renew ()
Sheets("Import").Visible = True
Sheets("Import").Select
ActiveWorkbook.RefreshAll
End sub

Sub CopyToPage ()
“Code”
End Sub

Sub RemoveDupl ()
“Code”
End Sub

The ActiveWorkbook.RefreschAll is import data from Text.
The code i am looking for is: to Exit the Sub ImportText () when the user selects “Cancel” in the select file window.

AMAS · Jul 27, 2011

Maybe something like this:

Code:

If myFile = "False" Then Exit Sub

AMAS

mikerickson · Jul 27, 2011

What code are you using to invoke the select file window?
None of the posted lines call a dialog box.

Valentin · Jul 27, 2011

First i did import data from text, then i recorded the macro refresch, this opens the select file window.

mikerickson · Jul 27, 2011

Could we see the code that opens the select file window?

Valentin · Jul 27, 2011

Link to file

http://dl.dropbox.com/u/9067954/sjablonen/Argenta csv import d.xlsm

i am a newbie to vba

Ruddles · Jul 27, 2011

Unfortunately, in common with many organisations, access to file sharing sites are blocked where I work.

We probably only need to see the dozen or so lines before and after the statement which opens the select file window, and these would be better posted directly into a forum message where (a) they can be seen by everyone without having to go off-site and (b) they will be preserved for posterity, something which cannot be guaranteed of an off-site link.

Please remember to post code between CODE tags - the # icon in the advanced editor toolbar.

Valentin · Jul 27, 2011

the statement which opens the select file window is

Code:

ActiveWorkbook.RefreshAll

Valentin · Jul 27, 2011

Step 1= Data import from Text wizard step 1,2 and 3
Step 2 = recorded macro to refresch connection, macro code = ActiveWorkbook.RefreshAll
Step 3 cut and paste in = Sub ImportVernieuwen()
' Sheets("Import").Visible = True
Sheets("Import").Select
ActiveWorkbook.RefreshAll
End Sub
macroname: "ImportVernieuwen" =dutch for "RenewImport",

Full macro =
Sub ImportText ()
RenewImport
CopyToPage
RemoveDupl
End Sub

Sub Renew ()
Sheets("Import").Visible = True
Sheets("Import").Select
ActiveWorkbook.RefreshAll
End sub

Sub CopyToPage ()
“Code”
End Sub

Sub RemoveDupl ()
“Code”
End Sub

the macro has to stop when the user selects “Cancel” in the select file window, that is the code i am searching for

stop the macro when the user selects “Cancel” in the select file window.

Valentin

Board Regular

Excel Facts

AMAS

Active Member

mikerickson

MrExcel MVP

Valentin

Board Regular

mikerickson

MrExcel MVP

Valentin

Board Regular

Ruddles

Well-known Member

Valentin

Board Regular

Valentin

Board Regular

Similar threads

Forum statistics

Share this page

stop the macro when the user selects “Cancel” in the select file window.

Board Regular

Excel Facts

Active Member

MrExcel MVP

Board Regular

MrExcel MVP

Board Regular

Well-known Member

Board Regular

Board Regular

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock