Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automate Opening Files
I have a master excel file with a column for file names and in the next
column the password. For example: B3 contents is: C:\My Documents\Export.xls C3 contents is: pwtest I put a macro in the code of the sheet so when I double click on B3 it opens the file to where you input the password. Is there a way to automatically fill in the password with the contrents of C3? So far I have been doing like this in the BeforeDoubleClick of the Sheet: ---------------------------------------------- On Error GoTo Macro1_Err vOpen = ActiveCell.Value ActiveCell.Offset(0, 1).Range("A1:A1").Select If IsEmpty(ActiveCell.Value) Then Else Selection.Copy End If ActiveCell.Offset(0, -1).Range("A1:A1").Select Workbooks.Open Filename:=vOpen '**Note: I am stuck here. I can hit Ctrl-V because I did a '**Selection.copy on the password above but what I really '**want is to have the password fill in automatic. Macro1_Exit: Exit Sub Macro1_Err: Resume Macro1_Exit ---------------------------------------------- Thank you for your help. Steven |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automate Opening Files
Workbooks.Open Filename:=range("B3").value password:=range("C3").value Cheers, Pete "Steven" wrote: I have a master excel file with a column for file names and in the next column the password. For example: B3 contents is: C:\My Documents\Export.xls C3 contents is: pwtest I put a macro in the code of the sheet so when I double click on B3 it opens the file to where you input the password. Is there a way to automatically fill in the password with the contrents of C3? So far I have been doing like this in the BeforeDoubleClick of the Sheet: ---------------------------------------------- On Error GoTo Macro1_Err vOpen = ActiveCell.Value ActiveCell.Offset(0, 1).Range("A1:A1").Select If IsEmpty(ActiveCell.Value) Then Else Selection.Copy End If ActiveCell.Offset(0, -1).Range("A1:A1").Select Workbooks.Open Filename:=vOpen '**Note: I am stuck here. I can hit Ctrl-V because I did a '**Selection.copy on the password above but what I really '**want is to have the password fill in automatic. Macro1_Exit: Exit Sub Macro1_Err: Resume Macro1_Exit ---------------------------------------------- Thank you for your help. Steven |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
automate opening a .txt file | Excel Discussion (Misc queries) | |||
Automate opening an add-in form | Excel Discussion (Misc queries) | |||
automate importing text files? | Excel Discussion (Misc queries) | |||
Automate Hyperlinks to files | Links and Linking in Excel | |||
Automate response to protected files | Excel Discussion (Misc queries) |