Loading in non-English text to AutoCAD via VBA?
That INPUT function is as old as DOS. It's not going to do what you want. I would read that file using Excel too.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
Post a sample of the csv.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
Try this for an idea.
Public Function GetXL() As Application
On Error Resume Next
Dim xlApp As Application
Set xlApp = GetObject(, "Excel.Application")
If xlApp Is Nothing Then
Set xlApp = CreateObject("Excel.Application")
End If
Set GetXL = xlApp
End Function
Sub RussianTest()
Dim xl As Application
Set xl = GetXL()
Dim wb As Workbook
Dim strText As String
Dim iPt(0 To 2) As Double
iPt(0) = 1
iPt(1) = 1
iPt(2) = 0
Set wb = xl.Workbooks.Open("C:\path\test-russian.xlsx")
strText = wb.Sheets("Sheet1").Cells(1, 2).Value()
ThisDrawing.PaperSpace.AddText strText, iPt, 1#
Set wb = Nothing
Set xl = Nothing
End Sub
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
Public Function AddToDictionary(FilePath As String, SheetName As String) On Error Resume Next ' Create Excel Object Dim XL As Excel.Application Set XL = GetObject(, "Excel.Application") If XL Is Nothing Then Set XL = CreateObject("Excel.Application") End If Dim wb As Workbook Dim i As Long Set wb = XL.Workbooks.Open(FilePath) Set mysheet = wb.Sheets(SheetName) ' Create Dictionary Set translator_dict = CreateObject("Scripting.Dictionary") ' Number of rows in first column of sheet NumRows = mysheet.Range("A2", mysheet.Range("A2").End(xlDown)).Rows.Count ' Append sheet data to dictionary For i = 1 To NumRows + 1 If Not IsEmpty(mysheet.Cells(i, 1).Value) Then translator_dict.add key:=LCase(mysheet.Cells(i, 1).Value()), Item:=mysheet.Cells(i, 2).Value() End If Next i Set mysheet = Nothing wb.Close 'Added Set wb = Nothing xl.Quit 'Added Set XL = Nothing Set AddToDictionary = translator_dict End Function
See my changes above. If you add the line to quit xl, you can add logic to check the Workbooks collection first. If there are still workbooks open, the Count will be greater than 0. So if the Count is 0, you can Quit xl.
Also, I highly recommend that you leave the xl object creation in its own sub. A lot of people assume that On Error Resume Next only applies to the next line. But it stays in effect during the scope of the sub. IOW, it will suppress all errors in your sub unless you reset it. Search VBA help for "On Error Statement" topic on how to do that. The preferred method is to containerize your code. Keep tasks separate. Besides, there may come a time when you want to use that function for another sub.
Also, you didn't Dim the NumRows variable. VBA will handle it for you at runtime, but it will always be cast as a Variant. If you include Option Explicit statement at the top of your module, the IDE will remind you that you didn't dim a var. If you go Tools>Options>Editor tab and check "Require Variable Declaration", it will add the Option Explicit statement for you when you create a new module.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
Dim dimensions a variable, i.e. allocates memory...and yes, a Variant takes up the most memory. Set does not declare a variable, it assigns to the memory location created by Dim.
A variable is a memory location. Think of it as a bucket for storing things. There are different types of memory locations. Some intrinsic data types like single, double and string don't need special handling. But object types of variables do and so require the Set statement.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
