StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

POTransfering windows-specific macro to run on Mac Excel
primarykey
Id
11568307
data
AcceptedAnswerId
0
AnswerCount
1
ClosedDate
CommentCount
5
CommunityOwnedDate
CreationDate
2012-07-19T19:56:25.030
FavoriteCount
0
LastActivityDate
2015-02-25T22:34:16.810
LastEditDate
2018-07-09T18:41:45.953
LastEditorUserId
-1
OwnerUserId
1183150
ParentId
0
PostTypeId
1
Score
1
ViewCount
3378
LastEditorDisplayName
text
Body
I've recently changed from a PC to a Mac. I run a lot of a macros and 99% of them are running fine, but I have one that doesn't work on a Mac. It runs a set of other macros across all workbooks in a file. To do this it uses strings like this: <code>Function BrowseFolder(Title As String, _ Optional InitialFolder As String = vbNullString, _ Optional InitialView As Office.MsoFileDialogView = _ msoFileDialogViewList) As String</code> When I try to run this on the Mac it comes back with an error: <blockquote> "compile error: variable not defined" </blockquote> I wonder if anyone could help me with porting this macro over to run on Mac. It was built on Excel 2007 Windows and I'm trying to run it on Excel 2011 Mac. <pre><code>Option Explicit Function GetFolder(Optional strPath As String) As String Dim fldr As FileDialog Dim sItem As String Set fldr = Application.FileDialog(msoFileDialogFolderPicker) With fldr .Title = "Select a Folder" .AllowMultiSelect = False If Not IsEmpty(strPath) Then .InitialFileName = strPath End If If .Show <> -1 Then GoTo NextCode sItem = .SelectedItems(1) End With NextCode: GetFolder = sItem Set fldr = Nothing End Function Private Sub test() Dim v As Variant 'V = GetFolder() v = BrowseFolder("Select folder") End Sub Function BrowseFolder(Title As String, _ Optional InitialFolder As String = vbNullString, _ Optional InitialView As Office.MsoFileDialogView = _ msoFileDialogViewList) As String Dim v As Variant Dim InitFolder As String With Application.FileDialog(msoFileDialogFolderPicker) .Title = Title .InitialView = InitialView If Len(InitialFolder) > 0 Then If Dir(InitialFolder, vbDirectory) <> vbNullString Then InitFolder = InitialFolder If Right(InitFolder, 1) <> "\" Then InitFolder = InitFolder & "\" End If .InitialFileName = InitFolder End If End If .Show On Error Resume Next Err.Clear v = .SelectedItems(1) If Err.Number <> 0 Then v = vbNullString End If End With BrowseFolder = CStr(v) End Function </code></pre>
Tags
<windows><excel><macos><excel-vba><vba>
Title
Transfering windows-specific macro to run on Mac Excel
singulars
PostAcceptedAnswerId
1. This table or related slice is empty.
PostParentId
1. This table or related slice is empty.
PostTypePostTypeId
1. PTQuestion
UserLastEditorUserId
1. USCommunity
UserOwnerUserId
1. USsam
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. PO
 singulars
 PostTypePostTypeId
 PTAnswer
VotesPostIdCreationDate
1. VO
 singulars
 PostPostId
 POTransfering windows-specific macro to run on Mac Excel
 UserUserId
 This table or related slice is empty.
 VoteTypeVoteTypeId
 VTApproveEditSuggestion
2. VO
 singulars
 PostPostId
 POTransfering windows-specific macro to run on Mac Excel
 UserUserId
 This table or related slice is empty.
 VoteTypeVoteTypeId
 VTUpMod
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.