java excel chr_chr(34)应用一例

''

Private Sub ll2()

Dim Xls As Object, Rng As Object, Ww, Hh, Delta

Set Xls = GetObject(, "Excel.Application")

Set Rng = Xls.selection

'Debug.Print Rng.address

Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2

Set SwApp = Application.SldWorks

Set SwModel = SwApp.ActiveDoc

Dim SwEqnMgr As EquationMgr, Str, ii, ii1

Set SwEqnMgr = SwModel.GetEquationMgr

With SwEqnMgr

'Ww = Chr(34) & Rng.areas(1) & Chr(34)

For ii = .GetCount To 0 Step -1

.Delete ii

Next ii

''

Ww = """" & Rng.areas(1) & """"

Hh = """" & Rng.areas(2) & """"

Delta = """" & Rng.areas(3) & """"

Str = Ww & "*" & Hh & "*" & Delta & " *7850/1000^3"

Str = "MatWt = " & "Round(" & Str & ",1)"

''Debug.Print Str

.Add 0, Str

End With

SwModel.ForceRebuild3 True

Dim CustArr

CustArr = SwModel.GetCustomInfoNames

Dim ConfArr, SwConf As Configuration

ConfArr = SwModel.GetConfigurationNames

''

For ii = 1 To UBound(ConfArr)

Set SwConf = SwModel.GetConfigurationByName(ConfArr(ii))

CustArr = SwModel.GetCustomInfoNames2(ConfArr(ii))

''

For ii1 = 0 To UBound(CustArr)

''

SwModel.DeleteCustomInfo2 ConfArr(ii), CustArr(ii1)

Next ii1

'Stop

SwModel.AddCustomInfo3 ConfArr(ii), "图号", 30, Str

Ww = """" & Rng.areas(1) & "@@" & ConfArr(ii) & "@" & SwModel.GetTitle & """"

Hh = """" & Rng.areas(2) & "@@" & ConfArr(ii) & "@" & SwModel.GetTitle & """"

Delta = """" & Rng.areas(3) & "@@" & ConfArr(ii) & "@" & SwModel.GetTitle & """"

Str = "筋板 " & Ww & "×" & Hh & " δ=" & Delta

SwModel.AddCustomInfo3 ConfArr(ii), "名称", 30, Str

''

Str = """SW-Material@@" & ConfArr(ii) & "@" & SwModel.GetTitle & """"

SwModel.AddCustomInfo3 ConfArr(ii), "材料", 30, Str

Str = Chr(34) & "SW-Mass@@" & ConfArr(ii) & "@" & SwModel.GetTitle & Chr(34)

SwModel.AddCustomInfo3 ConfArr(ii), "质量", 30, Str

''

Str = "板材 " & Ww & "×" & Hh & " δ=" & Delta

SwModel.AddCustomInfo3 ConfArr(ii), "下料尺寸", swCustomInfoText, Str

SwModel.AddCustomInfo3 ConfArr(ii), "下料质量", 30, """" & "MatWt@" & ConfArr(ii) & "@" & SwModel.GetTitle & """"

Str = "(" & Ww & "×" & Hh & "×" & Delta & ")×7850÷1000^3="

SwModel.AddCustomInfo3 ConfArr(ii), "下料公式", 30, Str

'Stop

Next ii

''Stop

End Sub