macID for CSV in mac excel 2011????

[straub]

Hello Team,

Can anyone tell me what the macID is for opening up CSV files.

FileName = Dir(Path, MacID("XLS8")) ' This will open excel files but need the macId for CSV...

Thanks,


Straub

 

[mikerickson]

my link to that info is at home. Until then I think that http://macscripter.net/ has links that lead to that (somewhere in the site).

 

[straub]

Thanks mikerickson!

 

[mikerickson]

try
MacID("public.csv")

I dont use DIR much, I ususaly use VBA MacScript command to access Applescript for file management. What is the goal? Might it be easier to use Applescripts Choose File or Choose Folder commands? (The filtering is a bit easier to find documentation)

 

[straub]

I'm using mac excel 2011 vba to open up csv files and process the data!

 

[mikerickson]

To achieve your task, you might use this

Dim PathToFile As String

PathToFile = "False"

On Error Resume Next
PathToFile = MacScript("choose file of type {""TEXT""}")
On Error GoTo 0

If PathToFile = "False" Then
    MsgBox "Canceled"
    Exit Sub
Else
    Workbooks.Open PathToFile
End If

According to this site
http://developer.apple.com/library/...eScriptLangGuide/introduction/ASLR_intro.html
the of type argument is a Uniform Type Identifier, which may (or may not) be the same as VBA's MacID.

To get the of type argument for a particular file, you can use this code.

Sub Get_OfType_Argument()
    Dim InfoFrom As String
    InfoFrom = "False"
    
    On Error Resume Next
    InfoFrom = MacScript("info for (choose file)")
    InfoFrom = Split(InfoFrom, ", file type:")(1)
    InfoFrom = Trim(Split(InfoFrom, ",")(0))
    MsgBox InfoFrom
End Sub

 

[straub]

Hi mikerickson, thanks! Your method works but it only allowed me to open one file at a time. Found it in Access... strange but worked.

Thanks a million!

link:
http://office.microsoft.com/en-us/access-help/dir-function-HA001228824.aspx

To iterate over all files in a folder, specify an empty string:

<code>Dir("")</code></pre>
sample code
Sub openAllfilesInFolder()
Dim MyPath As String
Dim MyFile As String
Dim wkb As Workbook


MyPath = "Macintosh HD:Users:blahblah:"

If Right(MyPath, 1) <> ":" Then MyPath = MyPath & ":"

'Don't care what files it opens, then use this method (This directory had nothing but my csv files)
MyFile = Dir("")

'If you want to open specific files then use this method (i.e. opens text files)
MyFile = Dir(MyPath, MacID("TEXT"))


Do While Len(MyFile) > 0
Set wkb = Workbooks.Open(FileName:=MyPath & MyFile)
'Your code here

wkb.Close savechanges:=False
MyFile = Dir
Loop

End Sub