Please do not forget to click “Vote as Helpful” if any post helps you and Public Sub a_SaveAsTextWithDelimiter()Const MYFILE = "Macintosh HD/Users/darrenmason/Documents/Products/Creator NXT/Serials/"Const RowToSplit = 5Dim Last_Row As LongDim FileNum As IntegerDim Data As VariantDim i As LongDim lStartRow As LongFileNum = FreeFileLast_Row = Cells.Find("*",, ,, xlByRows, xlPrevious).RowFor i = RowToSplit To Last_Row Step RowToSplit Data = WorksheetFunction.Transpose(Range("a" & i & ":A" & i - 4).Value) Open MYFILE & "C2NXT_STD_" & (i \ RowToSplit) & "_" & (Format(Date, "yyyymmdd")) _ & ".txt" For Output As #FileNum Print #FileNum, Join(Data, vbCrLf) Close #FileNumNext iEnd Sub I am just trying give a stepline and hope you can carry forward to your exact solution.
#Format text in excel for mac 2011 mac#
I am not sure whether in Mac the features supported but you can try. Open MYFILE & "C2NXT_STD_" & (My_Cell.Row \ 1000) & "_" & (Format(Date, "yyyymmdd")) & ".txt" For Output As #FileNum Open MYFILE & "C2NXT_STD.txt" For Output As #FileNum Set My_Range = ActiveSheet.Range("A1:A" & Last_Row)
Find("*",, ,, xlByRows, xlPrevious).Row Find("*",, ,, xlB圜olumns, xlPrevious).Column
Someone please help me figure out what I'm doing wrong? Thanks in advance! Public Sub a_SaveAsTextWithDelimiter()Ĭonst MYFILE = "Macintosh HD/Users/darrenmason/Documents/Products/Creator NXT/Serials/" I had a working version of the script below on my windows machine, but now I'm trying to get it working in Excel 2011 for Mac. Just to preface everything, I'm a total vb hack - as in cut/copy/paste and try to make things work.
0 kommentar(er)
