Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
I'm having problems using pastespecial. These are the steps the code
performs: 1) Open workbook A 2) Select specifi worksheet 3) Copy the data from a specifig range 4) Creates/Opens a new blank workbook 5) Pastes the values of the cells in the range into the first worksheet (Sheet1) starting at A1 6) Saves the new workbook as a tab delimite file 7) closs and exits Everything works except step 5. If I use paste, it works except it doesn't give me the value in cells. The following code gives me : "Microsoft Excel: PasteSpecial method of Range class failed" Set Xl = CreateObject("Excel.Application") Xl.Visible = False Xl.Workbooks.Open("C:\source.xls") Xl.Worksheets("MySheet").Select Xl.Range("B2:C12").Select Xl.Selection.Copy Xl.Workbooks.Add Xl.Range("A1").Select 'Xl.ActiveSheet.PasteSpecial -4163,-4142,0,0 Xl.Selection.PasteSpecial -4163,-4142,0,0 Xl.Application.CutCopyMode = False Xl.ActiveWorkbook.SaveAs "C:\test.txt",-4158,0 Xl.ActiveWorkbook.Close(0) Xl.quit If I try Xl.ActiveSheet.PasteSpecial -4163,-4142,0,0 instead, I get the following: "Microsoft Excel: PasteSpecial method of Worksheet class failed" I need to use pastespecial because I want just the values of the cell. Any help would be greatly appreciated. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Run VBScript from Excel | Excel Discussion (Misc queries) | |||
Copy PasteSpecial not working | Excel Worksheet Functions | |||
embed excel in ie using vbscript | Excel Programming | |||
Entering a formula via VBscript | Excel Programming | |||
use shell function in vbscript | Excel Programming |