[AHK-] 读取excel特定sheet的整行到变量

楼主: onlyAPU (Nothing)   2019-07-23 19:23:10
状况:
因为常常要打估价单,该excel里面有两个sheet分别叫[估价单]、[单价]
由于每个客人的需求都有不一样,常常要复制来复制去
目前作法是:
打开 单价sheet,鼠标选取,复制,回到 估价单sheet贴上
过程实在有点繁琐
今天尝试使用最简单的ahk写法
先把 sheet单价需要的字段复制起来,然后贴上
::c1::
(
品名 尺寸 单价 数量 折数 ....
)
开开心心的把十几个品项都设定好hotkey...
但是事情没有憨人想得这么简单,因为这样输入回去后,公式全部不见了
=====================================================================
上网估狗后,有看到一篇如下
#a::
; Gets a reference to the workbook
; Change the path to the path of your workbook
wbk := ComObjGet("C:\MyFolder\Book1.xlsx")
; Gets the value of cell 1, 1 (also known as cell A1) from Sheet1
A1Val := wbk.Sheets("Sheet1").Cells(1, 1).Value
SendInput, % A1Val
return
他这个方法试用过后是可以的,他读取后存到一个变量,然后再贴上
但是最大问题是他读取的只有 单个cell。可是我必须要有多个CELL
例如: 整行,或是A1-O1的值存到变量后再贴上
希望版上有人可以协助,感激不尽
楼主: onlyAPU (Nothing)   2019-07-25 00:00:00
没用过vba ,我来查查。谢谢
作者: ides13 (juso)   2019-07-24 17:22:00
不考虑直接用VBA吗?感觉这样比较快。可以录制一次,以后直接执行。
楼主: onlyAPU (Nothing)   2019-07-24 11:13:00
感谢回复,刚刚测试还是没有办法复制整行
作者: papple23g (逆道者)   2019-07-24 04:18:00
wbk.Sheets("工作表1").Range("A1","C1").CopySend ^v更正 C1为O1
作者: ides13 (juso)   2019-08-02 17:02:00
点选宏、再点选“选项”后,可以直接设定快捷键。

Links booklink

Contact Us: admin [ a t ] ucptt.com