StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
primarykey
Id
7141358
data
AcceptedAnswerId
0
AnswerCount
0
ClosedDate
CommentCount
10
CommunityOwnedDate
CreationDate
2011-08-21T21:41:22.660
FavoriteCount
0
LastActivityDate
2011-08-21T22:22:35.137
LastEditDate
2011-08-21T22:22:35.137
LastEditorUserId
903037
OwnerUserId
903037
ParentId
7140977
PostTypeId
2
Score
0
ViewCount
0
LastEditorDisplayName
text
Body
<ul> <li>You redim AllFiles but never fill it with anything. Is there missing code?</li> <li>AllFiles is a 0 based array so if you want to start at the second element you need to use test = 1 instead of test = 2.</li> <li>For looping through an array, try this: <code>For test = 1 to ubound(AllFiles) - 1 'This loops through the array from the second element to the last</code></li> <li>Is "LastRow" a named range? If not, that's not going to work. The following will select the last used row in a worksheet: <code>activesheet.Rows(activesheet.usedrange.rows.count).select</code></li> <li>Your SaveAs is failing because 1) AllFiles looks like it's never filled and 2) your save path as you wrote would be literally: <code>C:\Allfile(1)&Allfiles(count)\.xlsm</code>. You want: <code>ActiveWorkbook.SaveAs Filename:= "C:\" & AllFiles(1) & AllFiles(test) & ".xlsm"</code></li> </ul> EDIT After Code Update <ul> <li>You never initialize your count variable, add <code>count = 0</code> to the beginning just to be safe. </li> <li><code>GetOpenFilename</code> does in fact return the full path. Once you have that path stored in a variable (such as AllFiles()) you can get just the filename portion with <code>mid(AllFiles(test), instrrev(AllFiles(test), "\") + 1)</code></li> <li>You don't need the <code>ReDim AllFiles(count)</code> prior to your main Do Loop. ReDim erases the contents of the array unless you use the Preserve keyword.</li> <li>Change <code>Workbooks(AllFiles(test)).Activate</code> to <code>Workbooks(Mid(AllFiles(test), InStrRev(AllFiles(test), "\") + 1)).Activate</code> to strip the path information and leave just the filename.</li> <li><code>Windows("Allfiles(1).xml").Activate</code> won't work since your sending a literal string. You want <code>WORKBOOKS(Mid(AllFiles(1), InStrRev(AllFiles(1), "\") + 1)).Activate</code> here again.</li> <li><code>LastRow = LastRow + 1</code> probably isn't what you meant. Try <code>Set LastRow = LastRow.Offset(1, 0)</code></li> <li>Change <code>Range("LastRow").Select</code> to <code>LastRow.select</code></li> <li>All instances of <code>Windows(</code> should be changed to <code>Workbooks(</code></li> </ul>
Tags
Title
singulars
PostAcceptedAnswerId
1. This table or related slice is empty.
PostParentId
1. POActivate windows of files stored in arrays, but getting subscript out of range error?
 singulars
 PostTypePostTypeId
 PTQuestion
PostTypePostTypeId
1. PTAnswer
UserLastEditorUserId
1. USBanjoe
UserOwnerUserId
1. USBanjoe
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. This table or related slice is empty.
PostsAcceptedAnswerId
1. POActivate windows of files stored in arrays, but getting subscript out of range error?
 singulars
 PostTypePostTypeId
 PTQuestion
PostsParentIdCreationDate
1. This table or related slice is empty.
VotesPostIdCreationDate
1. VO
 singulars
 PostPostId
 PO
 UserUserId
 This table or related slice is empty.
 VoteTypeVoteTypeId
 VTAcceptedByOriginator
CommentsPostId

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.