Hi All,

I am currently working on a macro which brings data in from an external worksheet, manipulates it and saves it as a CSV. One of the problems I encountered was that some of the text was in Thai language characters and this showed up as question marks in the CSV output. I managed to find a way around this through using SendKeys to open notepad, paste data and save as, however when it got to the save as window I was required to manually:
  • Write .csv at the end of the file name
  • Select All Files as the Save As Type
  • Select UTF-8 as the Encoding

And Here is my Code:

SendKeys "% n", True
Shell "notepad.exe", vbNormalFocus
SendKeys "^V", True
SendKeys "%FA", True
SendKeys "Y%FX ", True
Any advice on how I could automate these three commands would be much appreciated!

Thanks in advance

Will