StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
primarykey
Id
19991970
data
AcceptedAnswerId
0
AnswerCount
0
ClosedDate
CommentCount
0
CommunityOwnedDate
CreationDate
2013-11-15T01:40:14.327
FavoriteCount
0
LastActivityDate
2013-11-15T01:40:14.327
LastEditDate
LastEditorUserId
0
OwnerUserId
2023624
ParentId
19868452
PostTypeId
2
Score
0
ViewCount
0
LastEditorDisplayName
text
Body
<p>See if this will help. Because we're copying from an irregular (non-contiguous) range, it's a bit difficult to copy to another irregular range. So for that reason, the target range is "A1,B1,C1,D1,E1, etc", instead of "A1,B1,C1,E1,H1, etc". If that doesn't work for you, we'll need to try something a bit more elaborate.</p> <pre><code>Sub copyMultFiles() Dim rS As Range, rT As Range, Cel As Range Dim wBs As Workbook 'source workbook Dim wS As Worksheet 'source sheet Dim wT As Worksheet 'target sheet Dim x As Long 'counter Dim c As Long Dim arrFiles() As String 'list of source files Dim myFile As String 'source file ' change these to suit requirements Const csMyPath As String = "C:\Documents and Settings\Dave\Desktop\TestFolder\" 'source folder Const csMyFile As String = "*.xls" 'source search pattern Const csSRng As String = "$C$1,$C$10,$C$11,$C$34,$D$1" 'source range Const csTRng As String = "$A$1" 'target range Application.ScreenUpdating = False ' target sheet Set wT = ThisWorkbook.Worksheets(1) 'change to suit ' clear sheet wT.Cells.Clear 'may not want this, comment out!!! ' aquire list of files ReDim arrFiles(1 To 1) myFile = Dir$(csMyPath & csMyFile, vbNormal) Do While Len(myFile) > 0 arrFiles(UBound(arrFiles)) = myFile ReDim Preserve arrFiles(1 To UBound(arrFiles) + 1) myFile = Dir$ Loop ReDim Preserve arrFiles(1 To UBound(arrFiles) - 1) Set rT = wT.Range(csTRng) ' loop thru list of files For x = 1 To UBound(arrFiles) Set wBs = Workbooks.Open(csMyPath & arrFiles(x), False, True) 'open wbook Set wS = wBs.Worksheets(1) 'change sheet to suit c = 0 Set rS = wS.Range(csSRng) 'copy source range to current target row For Each Cel In rS Cel.Copy rT.Offset(, c) 'next column c = c + 1 Next Cel wBs.Close False Set rT = rT.Offset(1) 'next row DoEvents Next x 'next book Erase arrFiles Application.ScreenUpdating = True End Sub </code></pre>
Tags
Title
singulars
PostAcceptedAnswerId
1. This table or related slice is empty.
PostParentId
1. POVBA - multiple file open, copy and paste to new file
  singulars
  PostTypePostTypeId
  PTQuestion
PostTypePostTypeId
1. PTAnswer
UserLastEditorUserId
1. This table or related slice is empty.
UserOwnerUserId
1. USDaveU
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. This table or related slice is empty.
PostsAcceptedAnswerId
1. This table or related slice is empty.
PostsParentIdCreationDate
1. This table or related slice is empty.
VotesPostIdCreationDate
1. This table or related slice is empty.
CommentsPostId
1. This table or related slice is empty.

Querying!

Guidance

A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.