On Tuesday, 4 November 2014 05:35:27 UTC, GS wrote:
Hello, I've got this macro:
Copy and paste values into text file
Const OUTPUTFILENAME =
"C:\Users\user\Documents\JobsTaxQualificationsBusi ness\CP+\CPPOffendersText.txt"
Dim cell As Range, ro As Range, outP As String fnum =
FreeFile Open OUTPUTFILENAME For Output As fnum
For Each ro In Range("A1:J" & Cells.End(xlDown).Row).Rows
outP = ""
allBlank = True
For Each cell In ro.Cells
If cell.Column < 1 Then outP = outP & vbTab
outP = outP & cell.Value
If Len(Trim$(cell.Value)) Then allBlank = False
Next
If allBlank Then Exit For
Print #fnum, outP
Next
Close fnum
which, as it says, c & p values into a text file.
I want to run it on a different PC where the filepath
C:\Users\user\Documents\JobsTaxQualificationsBusin ess\CP+ doesn't
exist.
What's the best way of getting this to work on any PC? Change the
filepath? Change the macro so that it will work anywhere?
Yes.., impliment a browser dialog to return the file and its path! This
can be GetSaveAsFilename or GetOpenFilename.
--
Garry
Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion
Thanks. Not sure how to use this, but will look around for examples.