まず、次の機能が必要です Function FileOrFolderExistsOnMac(FileOrFolderstr As String) As Boolean 'Ron de Bruin : 'Function to test whether a file or folder exist on a Mac in office 2011 and up 'Uses AppleScript to avoid the problem with long names in Office 2011, 'limit is max 32 characters including the extension in 2011. ここに貼り付けたコードは、機能する場合と機能しない場合があります。 Dim filename As String, lineText As String Dim myrng As Range, i, j Dim my_own_filename As String Dim my_own_path As String Dim filepath As String my_own_filename = Dropdown_Variables.Range('J12').Value my_own_path = Dropdown_Variables.Range('J13').Value filepath = ThisWorkbook.Path If Len(Dir(filepath & '/' & my_own_path, vbDirectory)) = 0 And my_own_path '' Then MkDir filepath & '/' & my_own_path End If filepath = filepath & '/' & my_own_path & '/' If my_own_filename '' Then myfilename = Format(Now, 'yymmdd-hhmmss') & '_' & my_own_filename & '.gpx' Else myfilename = Format(Now, 'yymmdd-hhmmss') & my_own_filename & '.gpx' End If filename = filepath & myfilename Open filename For Output As #1 mx = GPX.Cells(unt, 1).End(xlUp).Rows.Row Set myrng = GPX.Range('A1:A' & mx) For i = 1 To For j = 1 To lineText = IIf(j = 1, '', lineText & ',') & myrng.Cells(i, j) Next j Print #1, lineText Next i Close #1 If my_own_path '' Then Call Shell(filepath, vbNormalFocus) Else filepath = ThisWorkbook.Path Call Shell(filepath, vbNormalFocus) End If End Sub
0 kommentar(er)
