|If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.|
||Thread Tools||Display Modes|
[Excel XP] Orientation of cells etc.
I have to copy the contents of some cells from an external spreadsheet
to another (in the current Workbook). The range is e.g. all data in the
cells of the row 2-4 in all of the columns.
What is the best way to do this?
My current code is something like this
Application.ScreenUpdating = False
' path set to some workbook
Set wb = Workbooks.Open(sPath)
Dim lng As Long
Dim i As Integer
' sSheet points to a specific Spreadsheet in the external Workbook
For lng = 1 To wb.Worksheets(sSheet).Columns.Count
For i = 2 To 4
.Cells(10 + i, lng).Value = wb.Worksheets(sSheet).Cells(i, lng).Value
' copy some of the formatting as well.
.Cells(10 + i, lng).Interior.ColorIndex = wb.Worksheets(sSheet).Cells(i, lng).Interior.ColorIndex
.Cells(10 + i, lng).Font.Size = wb.Worksheets(sSheet).Cells(i, lng).Font.Size
This copies all data in row 2-4 in all columns in the external
Howver, I have a feeling that there is a better way to do it. My current
problem is that I need all the formatting as well, that is
text-orientation as well as row height and column width.
Also, the source spreadsheet in the external Workbook has data in
something like the first 250 rows. How do I copy these rows only to
my target spreadsheet? If I try
, I get 65536 ... which is a bit more than I need
I hope you guys can help me with this one ...
Jesper Stocholm - http://stocholm.dk
The Web submission form is the preferred procedure. However, if you don't
have access to the Internet you may send your submission by e-mail.
(Nyhedsbrev fra 9th Conference on Reliable Software Technologies)
|Thread||Thread Starter||Forum||Replies||Last Post|
|Pagesetup.Orientation need VBA routine to "Best Guess" Orientation||[email protected]||Excel Discussion (Misc queries)||3||November 10th 09 05:53 PM|
|Excel 2007 Landscape Orientation||ExcelHUH?!?!?||Excel Discussion (Misc queries)||6||August 30th 09 05:07 PM|
|Excel Page orientation||Sam||Excel Worksheet Functions||1||August 1st 08 09:14 PM|
|Excel Format cells Alignment Orientation 180 degrees?||MPJ, the floor-plan-man||Excel Discussion (Misc queries)||0||June 2nd 06 12:01 PM|
|Where does Excel store the orientation of PivotFields?||Valentin||Charts and Charting in Excel||0||April 3rd 06 04:02 PM|