I would like to copy cells (one at a time) from Excel to a resource
management program that is password protected on my company intranet. It is
not possible to paste columns in one go, so it must be done on a copy
cell/paste to cell repeat basis.

I've tried running the following code which I've seen from reading another
question but it errors at the Get application point.

Given the protection on the destination program, can this be done and if so,
how?

The code I tried unsuccessfully was:

CombineFiles()
Range("A1").Select
MyBook = ActiveWorkbook.Name
MyTargetCell = ActiveCell.Address
MySource = Application.GetOpenFilename
Workbooks.Open Filename:=MySource
Range("A1").Select
Set myRange = Range(Selection, ActiveCell.SpecialCells(xlCellTypeLastCell))
'<-Solution : Take out the select here because you are setting the myRange
with this line
myRange.Copy
Application.DisplayAlerts = False '<-- This will save you from having Excel
notify you that you placed a large amount of info on the clipboard before
closing the source file
ActiveWorkbook.Close
Application.DisplayAlerts = True
Workbooks(MyBook).Activate
Range(MyTargetCell).Select
ActiveSheet.Paste
ActiveWorkbook.Save 'SaveAs MySource <-- this is saving the Activeworkbook
as the Source workbook (I don't think that is what you want to do?)


Many thanks for your help!

You don't show any Get application line of code. Your code appears to be
pasting from one workbook to another workbook. I don't see any interaction
with another program.

--
Regards,
Tom Ogilvy

"Zakynthos" wrote in message
...
I would like to copy cells (one at a time) from Excel to a resource
management program that is password protected on my company intranet. It
is
not possible to paste columns in one go, so it must be done on a copy
cell/paste to cell repeat basis.

I've tried running the following code which I've seen from reading another
question but it errors at the Get application point.

Given the protection on the destination program, can this be done and if
so,
how?

The code I tried unsuccessfully was:

CombineFiles()
Range("A1").Select
MyBook = ActiveWorkbook.Name
MyTargetCell = ActiveCell.Address
MySource = Application.GetOpenFilename
Workbooks.Open Filename:=MySource
Range("A1").Select
Set myRange = Range(Selection,
ActiveCell.SpecialCells(xlCellTypeLastCell))
'<-Solution : Take out the select here because you are setting the myRange
with this line
myRange.Copy
Application.DisplayAlerts = False '<-- This will save you from having
Excel
notify you that you placed a large amount of info on the clipboard before
closing the source file
ActiveWorkbook.Close
Application.DisplayAlerts = True
Workbooks(MyBook).Activate
Range(MyTargetCell).Select
ActiveSheet.Paste
ActiveWorkbook.Save 'SaveAs MySource <-- this is saving the Activeworkbook
as the Source workbook (I don't think that is what you want to do?)


Many thanks for your help!

Thanks for letting me know.

So how, and at what point, would I:

(a) write in the Get Application code

(b) override the need to enter a password as the macro will obviously stop
running at this point.

Any specific advice would be much appreciated.

Many thanks


"Tom Ogilvy" wrote:

You don't show any Get application line of code. Your code appears to be
pasting from one workbook to another workbook. I don't see any interaction
with another program.

--
Regards,
Tom Ogilvy

"Zakynthos" wrote in message
...
I would like to copy cells (one at a time) from Excel to a resource
management program that is password protected on my company intranet. It
is
not possible to paste columns in one go, so it must be done on a copy
cell/paste to cell repeat basis.

I've tried running the following code which I've seen from reading another
question but it errors at the Get application point.

Given the protection on the destination program, can this be done and if
so,
how?

The code I tried unsuccessfully was:

CombineFiles()
Range("A1").Select
MyBook = ActiveWorkbook.Name
MyTargetCell = ActiveCell.Address
MySource = Application.GetOpenFilename
Workbooks.Open Filename:=MySource
Range("A1").Select
Set myRange = Range(Selection,
ActiveCell.SpecialCells(xlCellTypeLastCell))
'<-Solution : Take out the select here because you are setting the myRange
with this line
myRange.Copy
Application.DisplayAlerts = False '<-- This will save you from having
Excel
notify you that you placed a large amount of info on the clipboard before
closing the source file
ActiveWorkbook.Close
Application.DisplayAlerts = True
Workbooks(MyBook).Activate
Range(MyTargetCell).Select
ActiveSheet.Paste
ActiveWorkbook.Save 'SaveAs MySource <-- this is saving the Activeworkbook
as the Source workbook (I don't think that is what you want to do?)


Many thanks for your help!

Can you log in to the intranet application first, before running the
copy/paste?

A few more details might be useful. You don't mention what type of
application you're trying to interact with: I has assumed from
"intranet" that it was web-based, but your code sample points towards
an Excel-based app.


Tim.


"Zakynthos" wrote in message
...
Thanks for letting me know.

So how, and at what point, would I:

(a) write in the Get Application code

(b) override the need to enter a password as the macro will
obviously stop
running at this point.

Any specific advice would be much appreciated.

Many thanks


"Tom Ogilvy" wrote:

You don't show any Get application line of code. Your code appears
to be
pasting from one workbook to another workbook. I don't see any
interaction
with another program.

--
Regards,
Tom Ogilvy

"Zakynthos" wrote in message
...
I would like to copy cells (one at a time) from Excel to a
resource
management program that is password protected on my company
intranet. It
is
not possible to paste columns in one go, so it must be done on a
copy
cell/paste to cell repeat basis.

I've tried running the following code which I've seen from
reading another
question but it errors at the Get application point.

Given the protection on the destination program, can this be done
and if
so,
how?

The code I tried unsuccessfully was:

CombineFiles()
Range("A1").Select
MyBook = ActiveWorkbook.Name
MyTargetCell = ActiveCell.Address
MySource = Application.GetOpenFilename
Workbooks.Open Filename:=MySource
Range("A1").Select
Set myRange = Range(Selection,
ActiveCell.SpecialCells(xlCellTypeLastCell))
'<-Solution : Take out the select here because you are setting
the myRange
with this line
myRange.Copy
Application.DisplayAlerts = False '<-- This will save you from
having
Excel
notify you that you placed a large amount of info on the
clipboard before
closing the source file
ActiveWorkbook.Close
Application.DisplayAlerts = True
Workbooks(MyBook).Activate
Range(MyTargetCell).Select
ActiveSheet.Paste
ActiveWorkbook.Save 'SaveAs MySource <-- this is saving the
Activeworkbook
as the Source workbook (I don't think that is what you want to
do?)


Many thanks for your help!

I think I mistakenly wrote 'intranet' when I really meant 'network-based'.
The software is a resource management program called Vantage Point, which is
password protected.

The code sample I used was from a question about pasting from one excel
workbook to another application (I think MS Access) which was password
protected, so I thought this might be a good starting point.

However, as the Vantage Point software does not permit block pasting of
cells, I would need to run a macro which would:

1. Copy a single cell from data in Excel
2. Launch the Vantage Point password-protected resource management program.
3. Paste the data from Excel into a single cell in the VP spreadsheet
4. Return to Excel, copy the next cell ........ and so on

I have tried inserting Vantage Point as an Object within Excel and creating
2 macros:

1. To copy a data cell from Excel and open the Vantage Point application
2 To enter a password in the login window of Vantage Poiint
3. Then run the first macro to include running the second macro.

This doesn't work! it opens multiple logon windows, at least 20, eventually
the password is auto entered and then the computer crashes!!!!

Any suggestions for a Visual Basic script that will do the job?

Many thanks for your help!

Tony

"Tim Williams" wrote:

Can you log in to the intranet application first, before running the
copy/paste?

A few more details might be useful. You don't mention what type of
application you're trying to interact with: I has assumed from
"intranet" that it was web-based, but your code sample points towards
an Excel-based app.


Tim.


"Zakynthos" wrote in message
...
Thanks for letting me know.

So how, and at what point, would I:

(a) write in the Get Application code

(b) override the need to enter a password as the macro will
obviously stop
running at this point.

Any specific advice would be much appreciated.

Many thanks


"Tom Ogilvy" wrote:

You don't show any Get application line of code. Your code appears
to be
pasting from one workbook to another workbook. I don't see any
interaction
with another program.

--
Regards,
Tom Ogilvy

"Zakynthos" wrote in message
...
I would like to copy cells (one at a time) from Excel to a
resource
management program that is password protected on my company
intranet. It
is
not possible to paste columns in one go, so it must be done on a
copy
cell/paste to cell repeat basis.

I've tried running the following code which I've seen from
reading another
question but it errors at the Get application point.

Given the protection on the destination program, can this be done
and if
so,
how?

The code I tried unsuccessfully was:

CombineFiles()
Range("A1").Select
MyBook = ActiveWorkbook.Name
MyTargetCell = ActiveCell.Address
MySource = Application.GetOpenFilename
Workbooks.Open Filename:=MySource
Range("A1").Select
Set myRange = Range(Selection,
ActiveCell.SpecialCells(xlCellTypeLastCell))
'<-Solution : Take out the select here because you are setting
the myRange
with this line
myRange.Copy
Application.DisplayAlerts = False '<-- This will save you from
having
Excel
notify you that you placed a large amount of info on the
clipboard before
closing the source file
ActiveWorkbook.Close
Application.DisplayAlerts = True
Workbooks(MyBook).Activate
Range(MyTargetCell).Select
ActiveSheet.Paste
ActiveWorkbook.Save 'SaveAs MySource <-- this is saving the
Activeworkbook
as the Source workbook (I don't think that is what you want to
do?)


Many thanks for your help!

So the VP application is Excel-based? Does it support automation
(createobject, etc)?
Can you post a URL to the vendor's website?
Are the values you're trying to paste in all going into the same screen in
VP, or does each value get pasted to a different screen?
Have you tried logging in first and then running the Macro?

--
Tim Williams
Palo Alto, CA


"Zakynthos" wrote in message
...
I think I mistakenly wrote 'intranet' when I really meant 'network-based'.
The software is a resource management program called Vantage Point, which
is
password protected.

The code sample I used was from a question about pasting from one excel
workbook to another application (I think MS Access) which was password
protected, so I thought this might be a good starting point.

However, as the Vantage Point software does not permit block pasting of
cells, I would need to run a macro which would:

1. Copy a single cell from data in Excel
2. Launch the Vantage Point password-protected resource management
program.
3. Paste the data from Excel into a single cell in the VP spreadsheet
4. Return to Excel, copy the next cell ........ and so on

I have tried inserting Vantage Point as an Object within Excel and
creating
2 macros:

1. To copy a data cell from Excel and open the Vantage Point application
2 To enter a password in the login window of Vantage Poiint
3. Then run the first macro to include running the second macro.

This doesn't work! it opens multiple logon windows, at least 20,
eventually
the password is auto entered and then the computer crashes!!!!

Any suggestions for a Visual Basic script that will do the job?

Many thanks for your help!

Tony

"Tim Williams" wrote:

Can you log in to the intranet application first, before running the
copy/paste?

A few more details might be useful. You don't mention what type of
application you're trying to interact with: I has assumed from
"intranet" that it was web-based, but your code sample points towards
an Excel-based app.


Tim.


"Zakynthos" wrote in message
...
Thanks for letting me know.

So how, and at what point, would I:

(a) write in the Get Application code

(b) override the need to enter a password as the macro will
obviously stop
running at this point.

Any specific advice would be much appreciated.

Many thanks


"Tom Ogilvy" wrote:

You don't show any Get application line of code. Your code appears
to be
pasting from one workbook to another workbook. I don't see any
interaction
with another program.

--
Regards,
Tom Ogilvy

"Zakynthos" wrote in message
...
I would like to copy cells (one at a time) from Excel to a
resource
management program that is password protected on my company
intranet. It
is
not possible to paste columns in one go, so it must be done on a
copy
cell/paste to cell repeat basis.

I've tried running the following code which I've seen from
reading another
question but it errors at the Get application point.

Given the protection on the destination program, can this be done
and if
so,
how?

The code I tried unsuccessfully was:

CombineFiles()
Range("A1").Select
MyBook = ActiveWorkbook.Name
MyTargetCell = ActiveCell.Address
MySource = Application.GetOpenFilename
Workbooks.Open Filename:=MySource
Range("A1").Select
Set myRange = Range(Selection,
ActiveCell.SpecialCells(xlCellTypeLastCell))
'<-Solution : Take out the select here because you are setting
the myRange
with this line
myRange.Copy
Application.DisplayAlerts = False '<-- This will save you from
having
Excel
notify you that you placed a large amount of info on the
clipboard before
closing the source file
ActiveWorkbook.Close
Application.DisplayAlerts = True
Workbooks(MyBook).Activate
Range(MyTargetCell).Select
ActiveSheet.Paste
ActiveWorkbook.Save 'SaveAs MySource <-- this is saving the
Activeworkbook
as the Source workbook (I don't think that is what you want to
do?)


Many thanks for your help!