作者：乔山办公网日期：
返回目录：excel表格制作
用Split函数
你可以先选定要复制的对象后复制好，然后选中另一个sheet表对应的15R:13C单元格，粘贴就可以巾到你想要的位置了
我也发现这个问题，后来一试，真的是只能打开MICRSOFT OFFICE，WPS是打不开的。
这是我7a686964616fe78988e69d83330写的类似可参考的代码：
Call Plugin.Office.OpenXls("D:\1.xls")
Dim i
Dim a()
ReDim a(7)
//rem begin
For s=10 to 189
For i=0 to 6
Text = Plugin.Office.ReadXls(1, s, i+1)
a(i)=Text
Next
Delay 2000
//Hwnd = Plugin.Window.MousePoint()
//Call Plugin.Window.Active(Hwnd)
'按Ctrl+N
KeyDown 17, 1
KeyPress 78, 1
KeyUp 17, 1
Delay 5500
'Auto input user name and password
SayString a(0)
Delay 200
KeyPress "Tab", 1
Delay 200
SayString a(1)
Delay 200
KeyPress "Tab", 1
Delay 200
SayString a(1)
Delay 200
KeyPress "Tab", 1
Delay 200
KeyPress "Up", 1
Delay 200
KeyPress "Tab", 3
Delay 200
KeyPress "Space", 1
Delay 1000
'press Ctrl+Tab
KeyDown 17, 1
KeyPress "Tab", 1
KeyUp 17, 1
Delay 1000
SayString a(2)'Full name
Delay 200
KeyPress "Tab", 1
Delay 200
SayString a(3)'description
Delay 200
KeyPress "Tab", 1
Delay 200
//Goto begin
Next
//close Excel file
Call Plugin.Office.CloseXls()
MsgBox "Total created" & s & " users."用的按键精灵9.6写的。