How can I reformat following command to add the password, so I don't have to
type password every time I run macro

With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=CEFMS;UID=u4rf9rmd;SERVER=cefms.world;",
Destination:=Range("C4"))
.CommandText = Array


--
Richard

Richard,
I find the easiest way to create connection strings is :
- create a new text file somewhere suitable
- rename it "ConnStr.udl"
- double click
- follow the step filling the relevant info
- OK
- Open the file a text editor
- Copy the text

NickHK

"Richard" <(E-Mail Removed)> wrote in message
news:B28E21AD-595B-416E-94F4-(E-Mail Removed)...
> How can I reformat following command to add the password, so I don't have
to
> type password every time I run macro
>
> With ActiveSheet.QueryTables.Add(Connection:= _
> "ODBC;DSN=CEFMS;UID=u4rf9rmd;SERVER=cefms.world;",
> Destination:=Range("C4"))
> .CommandText = Array
>
>
> --
> Richard

Brilliant. I would never have though of that in a million years.

However, where do I put this new text into my old ActiveSheet.QueryTables
command?
I tried replacing the part in between the quotes
(i.e. ODBC;DSN=CEFMS;UID=u4rf9rmd;SERVER=cefms.world
but get this error:
Compile error: Expected: list separator or )
and it highlights my password. Could this error be tied to the fact that my
password contaings an underscore "_" similar to the symbol for a continuation
line in VBS?

--
Richard


"NickHK" wrote:

> Richard,
> I find the easiest way to create connection strings is :
> - create a new text file somewhere suitable
> - rename it "ConnStr.udl"
> - double click
> - follow the step filling the relevant info
> - OK
> - Open the file a text editor
> - Copy the text
>
> NickHK
>
> "Richard" <(E-Mail Removed)> wrote in message
> news:B28E21AD-595B-416E-94F4-(E-Mail Removed)...
> > How can I reformat following command to add the password, so I don't have
> to
> > type password every time I run macro
> >
> > With ActiveSheet.QueryTables.Add(Connection:= _
> > "ODBC;DSN=CEFMS;UID=u4rf9rmd;SERVER=cefms.world;",
> > Destination:=Range("C4"))
> > .CommandText = Array
> >
> >
> > --
> > Richard
>
>
>