U slučaju da ovo prethodno ne upali, imaš ovo parče koda, od Patrika O'Berna (Patrick O'Beirne)
Code:
Option Explicit
Sub SaveActiveWorkbookAsCSVUTF8()
'add any warnings you like about saving and overwriting, and error handling
Dim strFullName As String, wbActive As Workbook, strCSVName As String
Set wbActive = ActiveWorkbook
strFullName = wbActive.FullName
strCSVName = strFullName & ".csv" ' eg .xlsx.csv
wbActive.Save ' to be sure
wbActive.SaveAs Filename:=strCSVName, FileFormat:=xlUnicodeText ' tab delimited
wbActive.Close savechanges:=False
Workbooks.Open strFullName ' re-open presumably wanted
' now convert tabs to commas
Dim handle As Long, sText As String
handle = FreeFile()
Open strCSVName For Binary As #handle
sText = Space(LOF(handle)) ' enough spaces for entire file contents
Get #handle, , sText
sText = Replace(sText, vbTab, Application.International(xlListSeparator))
Put #handle, 1, sText
Close #handle
End Sub
Što se ovog drugog tiče - debele linije nisu dostupne za uslovno formatiranje. -Prema tome, samo VBA.
Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!