Solved

Copy an excel sheet from a workbook

Posted on 2014-04-23
6
25 Views
Last Modified: 2016-05-18
I did as below to copy a sheet from an excel workbook include all data include a windings a face character. while it creat workbook and copy the sheet winding face is disapear also source excel sheet background is white no grid but while copied the sheet with grid line which is normal background of an execel sheet while open.

Set ws_Source_04 = wb_Source_01.Sheets("Newtest")   this is the source sheet which is in white backgroud with winding face character
   
    Set wb_Source_02 = Workbooks.Add
    wb_Source_02.Sheets(1).Name = "testresult_01"
    wb_Source_02.SaveAs FileName
   

    Set ws_Source_05 = wb_Source_02.Sheets("testresult_01")    
    )
    ws_Source_04.Cells.Copy Destination:=ws_Source_05.Cells(1, 1)    

Would you advice where to change to get expecting result.

Thanks
0
Comment
Question by:alam747
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
6 Comments
 
LVL 34

Accepted Solution

by:
Norie earned 500 total points
ID: 40018911
Have you tried this?
Set ws_Source_04 = wb_Source_01.Sheets("Newtest")
ws_Source_04.Copy
Set wb_Source_02 = ActiveWorkbook
wb_Source_02.Sheets(1).Name = "testresult_01"

Open in new window

It shoud copy ws_Source_04 to a new workbook, with all the data and formatting should be intact, and rename the copied worksheet with the name 'testresult_01'.
0
 

Author Comment

by:alam747
ID: 40019176
The workbook ( wb_Source_02 ) has need to have two sheets
wb_Source_02.Sheets(1).Name = "testresult_01"
wb_Source_02.Sheets(2).Name = "testresult_02"

only want to copy ws_Source_04 to "testresult_01"

also want to define cell width of sheet "testresult_02"

Please advice.... Thanks
0
 
LVL 34

Expert Comment

by:Norie
ID: 40020512
This will copy both worksheets to a new worksheet.
Set ws_Source_04 = wb_Source_01.Sheets("Newtest")

ws_Source_04.Copy

Set wb_Source_02 = ActiveWorkbook

wb_Source_02.Sheets(1).Name = "testresult_01" 

ws_Source_05.Copy After:=wb_Source_02.Sheets(1)

wb_Source_02.Sheets(2).Name = "testresult_02"

Open in new window

0
 

Author Comment

by:alam747
ID: 40024110
want to use first raw of the 2nd sheet as header in bold character and set the width as autofit of cell (A:A) to cell(M:M)
and color the header in light blue ( only the first raw of the cell A ~ M ).

Please advise.
0

Featured Post

Migrating Your Company's PCs

To keep pace with competitors, businesses must keep employees productive, and that means providing them with the latest technology. This document provides the tips and tricks you need to help you migrate an outdated PC fleet to new desktops, laptops, and tablets.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article describes how to use a set of graphical playing cards to create a Draw Poker game in Excel or VB6.
Ever visit a website where you spotted a really cool looking Font, yet couldn't figure out which font family it belonged to, or how to get a copy of it for your own use? This article explains the process of doing exactly that, as well as showing how…
This video shows where to find the word count, how to display it, and what it breaks down to in Microsoft Word.
The viewer will learn how to simulate a series of sales calls dependent on a single skill level and learn how to simulate a series of sales calls dependent on two skill levels. Simulating Independent Sales Calls: Enter .75 into cell C2 – “skill leve…

726 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question