Opening Excel file through excel

[b][red]This message was edited by rakeshVB at 2003-11-19 2:45:31[/red][/b][hr]
Hi every body!

Presently I am working on Excel modules where i have to collect data from Excel File into separate excel file. i want read few cells in of particular files & collect the data in to master excel file. I don't want to go for DDE.

i prefer reading the content of one excel file from another excel file by writing a macro(VBA) in to it.

Can any body help me in writing a macro for reading the content of one file to another file, even a small sudo code will help me a lot.

any help will be highly appreciated


Thanks a lot in advance.

Rakesh


Comments

  • : [b][red]This message was edited by rakeshVB at 2003-11-19 2:45:31[/red][/b][hr]
    : Hi every body!
    :
    : Presently I am working on Excel modules where i have to collect data from Excel File into separate excel file. i want read few cells in of particular files & collect the data in to master excel file. I don't want to go for DDE.
    :
    : i prefer reading the content of one excel file from another excel file by writing a macro(VBA) in to it.
    :
    : Can any body help me in writing a macro for reading the content of one file to another file, even a small sudo code will help me a lot.
    :
    : any help will be highly appreciated
    :
    :
    : Thanks a lot in advance.
    :
    : Rakesh
    :
    :
    :

    So, if I can understand:
    You're writing macro (for example in your Master file) and this macro will collect several cells from another workbooks, right?
    [code]Public Sub CollectMyData()
    Workbooks.Open "F:DocsMyDoc1.xls" [green]'If your docs aren't opend[/green]
    Workbooks.Open "F:DocsMyDoc2.xls"
    Workbooks("MyDoc1.xls").Activate [green]'Make sure you've got activated the first Doc, you can also use index (and control if the name is right - may be faster way[/green]
    Worksheets("Data").Activate [green]'If you have more than one sheet[/green]
    Range("B2:B10").Copy
    Workbooks("Master.xls").Activate
    Worksheets("w21").Activate
    [green]'This will paste all (like Ctrl+V or ReturnKey)[/green]
    Range("C11").Select
    Activesheet.Paste
    [green]'This will pasteSpecial (Edit/PasteSpecial..)[/green]
    Range("C11").PasteSpecial xlPasteValues [green]'For example only values[/green]
    [green]'And the same with the second (and any else workbook)[/green]
    blablabla

    [green]'And Closing is simply[/green]
    Workbooks("Master.xls").Close True
    Workbooks("MyDoc1.xls").Close False [green]'False if you won't save changes in theese workbooks[/green]
    Workbooks("MyDoc2.xls").Clsoe False
    End Sub[/code]
    This code expects that your file Master.xls contains this macro and this macro expects that you have that files... And it will take cells B2:B10, copy & pastes into your workbook Master...

    Hope I understood your problem.. More questions? Ask!

    Hope this will help

    PavlinII
Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

In this Discussion