Excel Macros

[Chris Premo]

I'm saving my data as a Text file and use
this command. Unfortunately, it prompts for a use action to
save/replace the file and then prompts again when I close the file.
I'd like code that would not require use intervention.


ActiveWorkbook.SaveAs Filename:="I:\Configs\" & TextStr2,
FileFormat:= xlText, CreateBackup:=False
ActiveWorkbook.Close


Also, I'm trying to search and replace for a string of like this:


****************************************

Unfortunately, it is using this as a wildcard and finds all text. How
can I search for this exact string and only replace this string????




--

 

[FSt1]

hi
in answer to your first question, you might try this before the same command.

Application.displayalerts = fasle.

this will run off the prompt but be sure to turn alerts back on after the
save.

application.displayalerts = true.

not sure what to do about your second delima. sorry

regards
FSt1

 

[JLatham]

FSt1 has provided the answer to the 1st half of your question.

How are you doing the search/replace - manually from the keyboard, or in
code? Are you searching the .txt file created or something else?

 

[Gord Dibben]

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="I:\Configs\" & TextStr2,
FileFormat:= xlText, CreateBackup:=False
ActiveWorkbook.Close
Application.DisplayAlerts = True

To find a wildcard enter the Tilde(~) then the asterisk

i.e. find what: ~*


Gord Dibben MS Excel MVP

 

[Chris Premo]

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="I:\Configs\" & TextStr2,
FileFormat:= xlText, CreateBackup:=False
ActiveWorkbook.Close
Application.DisplayAlerts = True

To find a wildcard enter the Tilde(~) then the asterisk

i.e. find what: ~*


Gord Dibben MS Excel MVP

I ended up using this and it worked:


Selection.Replace What:="~*~*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False



--

 

[Gord Dibben]

Good thinnin'


Gord