乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 51|回复： 19

[编程交流] Excel处理

[复制链接]
Costinbos77

56

主题

284

帖子

231

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
289
发表于 2022-7-6 06:22:16 | 显示全部楼层 |阅读模式
是否可以为val或其他（取Excel单元格内容）编写表达式？
 
  2. (setq XlsApp (vlax-get-or-create-object "Excel.Application")
  3.        myWBooks (vlax-get-property XlsApp 'Workbooks)
  4.        myWBook (vla-Add myWBooks)
  5.        aSht (vlax-get-property XlsApp 'ActiveSheet)
  6.        cel (vlax-get-property aSht 'Cells)  )
  7. (vla-put-Visible XlsApp 1)
  9. [color=red](setq val (vlax-variant-value (vla-get-Value (vlax-variant-value [/color][color=red](vlax-get-property cel 'Item r c))) ) )[/color]

 
因为在Excel单元格中编写非常简单：
  2. (vlax-put-property cel 'Item r c value)
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 06:28:23 | 显示全部楼层
以下内容未经测试，但请尝试：
未记录的vlax get函数应返回使用本机AutoLISP数据类型表示的数据，避免从Visual LISP变体和安全数组转换。
回复

使用道具 举报

Costinbos77

56

主题

284

帖子

231

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
289
发表于 2022-7-6 06:29:09 | 显示全部楼层
测试：
 
  2. (vlax-get cel 'item 1 1)
  3. ; error: too many arguments

 
或：
  2. (vlax-get cel 'item "A1")
  3. ; error: too many arguments

或：
  2. (vlax-get cel "A1")
  3. ; error: ActiveX Server returned the error: unknown name: "A1"

 
vlax get仅用于与AutoCAD R14兼容
  2. (vlax-get cel 'Item r c)
回复

使用道具 举报

Costinbos77

56

主题

284

帖子

231

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
289
发表于 2022-7-6 06:34:08 | 显示全部楼层 
  2. (vlax-dump-object cel t)
  3. ; Range: nil
  4. ; Property values:
  5. ;   AddIndent = 0
  6. ;   Address (RO) = ...Indexed contents not shown...
  7. ;   AddressLocal (RO) = ...Indexed contents not shown...
  8. ;   AllowEdit (RO) = -1
  9. ;   Application (RO) = #<VLA-OBJECT _Application 18fee4dc>
  10. ;   Areas (RO) = #<VLA-OBJECT Areas 1afea0f4>
  11. ;   Borders (RO) = #<VLA-OBJECT Borders 1afea184>
  12. ;   Cells (RO) = #<VLA-OBJECT Range 1afea214>
  13. ;   Characters (RO) = ...Indexed contents not shown...
  14. ;   Column (RO) = 1
  15. ;   Columns (RO) = #<VLA-OBJECT Range 1afea2a4>
  16. ;   ColumnWidth = 8.43
  17. ;   Comment (RO) = nil
  18. ;   Count (RO) = Exception occurred
  19. ;   CountLarge (RO) = unsupported result type: 20
  20. ;   Creator (RO) = 1480803660
  21. ;   CurrentArray (RO) = Microsoft Office Excel: No cells were found.
  22. ;   CurrentRegion (RO) = #<VLA-OBJECT Range 1afea334>
  23. ;   Dependents (RO) = Microsoft Office Excel: No cells were found.
  24. ;   DirectDependents (RO) = Microsoft Office Excel: No cells were found.
  25. ;   DirectPrecedents (RO) = Microsoft Office Excel: No cells were found.
  26. ;   End (RO) = ...Indexed contents not shown...
  27. ;   EntireColumn (RO) = #<VLA-OBJECT Range 1afea3c4>
  28. ;   EntireRow (RO) = #<VLA-OBJECT Range 1b111314>
  29. ;   Errors (RO) = Exception occurred
  30. ;   Font (RO) = #<VLA-OBJECT Font 1b1113a4>
  31. ;   FormatConditions (RO) = #<VLA-OBJECT FormatConditions 1b111434>
  32. ;   Formula = Exception occurred
  33. ;   FormulaArray = "123"
  34. ;   FormulaHidden = 0
  35. ;   FormulaLocal = Exception occurred
  36. ;   FormulaR1C1 = Exception occurred
  37. ;   FormulaR1C1Local = Exception occurred
  38. ;   HasArray (RO) = 0
  39. ;   HasFormula (RO) = 0
  40. ;   Height (RO) = 1.57286e+007
  41. ;   Hidden = Microsoft Office Excel: Unable to get the Hidden property of the Range class
  42. ;   HorizontalAlignment = 1
  43. ;   Hyperlinks (RO) = #<VLA-OBJECT Hyperlinks 1b1114c4>
  44. ;   ID = ""
  45. ;   IndentLevel = 0
  46. ;   Interior (RO) = #<VLA-OBJECT Interior 1b111554>
  47. ;   Item = ...Indexed contents not shown...
  48. ;   Left (RO) = 0.0
  49. ;   ListHeaderRows (RO) = 0
  50. ;   ListObject (RO) = nil
  51. ;   LocationInTable (RO) = Microsoft Office Excel: Unable to get the LocationInTable property of the Range class
  52. ;   Locked = -1
  53. ;   MDX (RO) = Exception occurred
  54. ;   MergeArea (RO) = Exception occurred
  55. ;   MergeCells = 0
  56. ;   Name = Exception occurred
  57. ;   Next (RO) = #<VLA-OBJECT Range 1b1115e4>
  58. ;   NumberFormat = "General"
  59. ;   NumberFormatLocal = "General"
  60. ;   Offset (RO) = ...Indexed contents not shown...
  61. ;   Orientation = -4128
  62. ;   OutlineLevel = Microsoft Office Excel: Unable to get the OutlineLevel property of the Range class
  63. ;   PageBreak = Microsoft Office Excel: Unable to get the PageBreak property of the Range class
  64. ;   Parent (RO) = #<VLA-OBJECT _Worksheet 1b06702c>
  65. ;   Phonetic (RO) = #<VLA-OBJECT Phonetic 1b110ecc>
  66. ;   Phonetics (RO) = nil
  67. ;   PivotCell (RO) = Exception occurred
  68. ;   PivotField (RO) = Microsoft Office Excel: Unable to get the PivotField property of the Range class
  69. ;   PivotItem (RO) = Microsoft Office Excel: Unable to get the PivotItem property of the Range class
  70. ;   PivotTable (RO) = Microsoft Office Excel: Unable to get the PivotTable property of the Range class
  71. ;   Precedents (RO) = Microsoft Office Excel: No cells were found.
  72. ;   PrefixCharacter (RO) = ""
  73. ;   Previous (RO) = Microsoft Office Excel: Unable to get the Previous property of the Range class
  74. ;   QueryTable (RO) = Exception occurred
  75. ;   Range (RO) = ...Indexed contents not shown...
  76. ;   ReadingOrder = -5002
  77. ;   Resize (RO) = ...Indexed contents not shown...
  78. ;   Row (RO) = 1
  79. ;   RowHeight = 15.0
  80. ;   Rows (RO) = #<VLA-OBJECT Range 1b110f5c>
  81. ;   ServerActions (RO) = Exception occurred
  82. ;   ShowDetail = Microsoft Office Excel: Unable to get the ShowDetail property of the Range class
  83. ;   ShrinkToFit = 0
  84. ;   SmartTags (RO) = #<VLA-OBJECT SmartTags 1b110fec>
  85. ;   SoundNote (RO) = #<VLA-OBJECT SoundNote 1b11107c>
  86. ;   Style = #<VLA-OBJECT Style 1b11110c>
  87. ;   Summary (RO) = Microsoft Office Excel: Unable to get the Summary property of the Range class
  88. ;   Text (RO) = "123"
  89. ;   Top (RO) = 0.0
  90. ;   UseStandardHeight = -1
  91. ;   UseStandardWidth = -1
  92. ;   Validation (RO) = #<VLA-OBJECT Validation 1b11119c>
  93. ;   Value = ...Indexed contents not shown...
  94. ;   Value2 = Exception occurred
  95. ;   VerticalAlignment = -4107
  96. ;   Width (RO) = 786432.0
  97. ;   Worksheet (RO) = #<VLA-OBJECT _Worksheet 1b06702c>
  98. ;   WrapText = 0
  99. ;   XPath (RO) = Microsoft Office Excel: The specified range is invalid due to one or more of the following reasons:
  100. •The range refers to cells in more than one column.
  101. •The range contains mapped cells from more than one XML map.
  102. •The range contains both mapped and unmapped cells.
  103. •The range contains both table and non-table cells.
  104. •The range is not contiguous.
  105. ;   _Default = ...Indexed contents not shown...
  106. ;   _NewEnum (RO) = #<IUnknown 1b0bfd6c>
  107. ; Methods supported:
  108. ;   Activate ()
  109. ;   AddComment (1)
  110. ;   AdvancedFilter (4)
  111. ;   ApplyNames (7)
  112. ;   ApplyOutlineStyles ()
  113. ;   AutoComplete (1)
  114. ;   AutoFill (2)
  115. ;   AutoFilter (5)
  116. ;   AutoFit ()
  117. ;   AutoOutline ()
  118. ;   BorderAround (4)
  119. ;   Calculate ()
  120. ;   CalculateRowMajorOrder ()
  121. ;   CheckSpelling (4)
  122. ;   Clear ()
  123. ;   ClearComments ()
  124. ;   ClearContents ()
  125. ;   ClearFormats ()
  126. ;   ClearNotes ()
  127. ;   ClearOutline ()
  128. ;   ColumnDifferences (1)
  129. ;   Consolidate (5)
  130. ;   Copy (1)
  131. ;   CopyFromRecordset (3)
  132. ;   CopyPicture (2)
  133. ;   CreateNames (4)
  134. ;   Cut (1)
  135. ;   DataSeries (6)
  136. ;   Delete (1)
  137. ;   DialogBox ()
  138. ;   Dirty ()
  139. ;   EditionOptions (7)
  140. ;   ExportAsFixedFormat (9)
  141. ;   FillDown ()
  142. ;   FillLeft ()
  143. ;   FillRight ()
  144. ;   FillUp ()
  145. ;   Find (9)
  146. ;   FindNext (1)
  147. ;   FindPrevious (1)
  148. ;   FunctionWizard ()
  149. ;   Group (4)
  150. ;   Insert (2)
  151. ;   InsertIndent (1)
  152. ;   Justify ()
  153. ;   ListNames ()
  154. ;   Merge (1)
  155. ;   NavigateArrow (3)
  156. ;   NoteText (3)
  157. ;   Parse (2)
  158. ;   PasteSpecial (4)
  159. ;   PrintOut (
  160. ;   PrintPreview (1)
  161. ;   RemoveDuplicates (2)
  162. ;   RemoveSubtotal ()
  163. ;   Replace (
  164. ;   RowDifferences (1)
  165. ;   Run (30)
  166. ;   Select ()
  167. ;   SetPhonetic ()
  168. ;   Show ()
  169. ;   ShowDependents (1)
  170. ;   ShowErrors ()
  171. ;   ShowPrecedents (1)
  172. ;   Sort (15)
  173. ;   SortSpecial (15)
  174. ;   Speak (2)
  175. ;   SpecialCells (2)
  176. ;   SubscribeTo (2)
  177. ;   Subtotal (6)
  178. ;   Table (2)
  179. ;   TextToColumns (14)
  180. ;   Ungroup ()
  181. ;   UnMerge ()
  182. T
  183. _$
回复

使用道具 举报

BIGAL

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-6 06:36:53 | 显示全部楼层
看看GETEXCEL。lsp位切除
 
  1. (setq ExcelRange (vlax-get-property *ExcelApp% "Cells"))
  2.  (foreach Item Data@
  3.    (vlax-put-property ExcelRange "Item" Row# Column# (vl-princ-to-string Item))
回复

使用道具 举报

Costinbos77

56

主题

284

帖子

231

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
289
发表于 2022-7-6 06:38:25 | 显示全部楼层
在GETEXCEL中。lsp它仅使用类似的方法，而不是项、值：
 
  2. (repeat MaxColumn#
  3.      (setq Range$ (strcat (Number2Alpha Column#)(itoa Row#)))
  4.      (setq ExcelRange^ (vlax-get-property *ExcelApp% "Range" Range$))
  5.      (setq ExcelVariant^ (vlax-get-property ExcelRange^ [color=red]'Value[/color]))
  6.      (setq ExcelValue (vlax-variant-value ExcelVariant^))
  7.      (setq ExcelValue
  8.        (cond
  9.          ((= (type ExcelValue) 'INT) (itoa ExcelValue))
  10.          ((= (type ExcelValue) 'REAL) (rtosr ExcelValue))
  11.          ((= (type ExcelValue) 'STR) (vl-string-trim " " ExcelValue))
  12.          ((/= (type ExcelValue) 'STR) "")
  13.        );cond
  14.      );setq
  15.      (setq Data@ (append Data@ (list ExcelValue)))
  16.      (setq Column# (1+ Column#))
  17.    )
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 06:43:12 | 显示全部楼层
 
由于上面返回的参数“太多”，请尝试：
  1. (vlax-get cel 'item)
回复

使用道具 举报

Costinbos77

56

主题

284

帖子

231

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
289
发表于 2022-7-6 06:47:16 | 显示全部楼层 
  2. (vlax-get cel 'item)
  3. ; error: Invalid number of parameters

 
  2. (vlax-get-property cel 'Item 1 1)
  3. #<variant 9 [color=red]1234.567[/color]>

 
我在主题#1中填写了您需要的所有内容，所以您可以尝试一下。
回复

使用道具 举报

fabriciorby

9

主题

71

帖子

62

银币

初来乍到

Rank: 1

铜币
45
发表于 2022-7-6 06:49:42 | 显示全部楼层
我做过这样的东西
  2. ;for example
  3. (setq row 1 column 1)
  4. (setq cell (vlax-variant-value(vlax-get-property cells 'Item (vlax-make-variant row)(vlax-make-variant column))))
  5. (setq celltext (vlax-variant-value (vlax-get-property cell 'Value)))

它对我有效（：
回复

使用道具 举报

Costinbos77

56

主题

284

帖子

231

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
289
发表于 2022-7-6 06:50:55 | 显示全部楼层
谢谢你的回复，但是Fabricorby，谁是cells variable？
 
这是一个缺点，因为您必须为读取的每个单元格确定单元格变量。在我的版本中，cel变量可用于整个工作表。
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-10 17:55 , Processed in 0.587723 second(s), 83 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表