怎么制作点读机教材Excel脚本数据

怎么制作excel按键精灵脚本~

方法/步骤


1
首先来建立一个新的Excel文档，在桌面上点击右键，选择【新建】-【Excel工作表】，命名为【新手学员】。


2
现在这个新Excel文档是空白的，我们接下来会通过按键精灵的脚本来打开并写入一些数据。

3
打开按键精灵软件，点击【新建】，进入我的脚本界面，再点击进入【全部命令】。


在【全部命令】中选择【插件命令】-【office办公文档插件】-【打开Excel文档】。

在命令的下面可以看到命令的详细设置，点击【路径】。

在弹出窗口中选择【新手学员】的Excel文档，点击打开。

可以在命令参数中看到引用的文档，点击插入就可以插入对应的命令脚本。


继续在文档中写入新的数据，选择命令【writeXls 写入Excel文档单元格】，选择对应的单元格的行和列，输入要写入单元格的内容【"序号"】，点击插入。

在脚本界面可以看到新插入的代码。

根据类似的格式，可以添加其它代码，一共写入3行4列的单元格内容。


最后选择【closeXls 关闭文档】，点击插入对应的代码。


修改脚本属性的描述和保存的脚本文件名。保存脚本后按【F10】进行脚本调试。

脚本执行完成后，再次打开这个Excel文档，可以看到刚才设置的数据已经成功写入了。

楼主，用office2013吧，现成的连接sql，简单易用！
(*^__^*) 嘻嘻……

一： 在本地PC新建一个Excel文件（例如：excel2007）
准备工作，左键选择excel文本左上角的图标，选择逗Excle选项地。1. 点击逗信任中心地->逗信任中心设置地->逗宏设置地->选择逗启用所有宏...地选项。逗开发人员宏设置地选项也勾选上。 2. 点击逗信任中心地->逗信任中心设置地->选择逗个人信息选项地，将逗文档特定设置地上面默认选择去掉，避免在保存脚本时报错。
二： 在本地PC新建一个excel文件（例如： D:\testdate.xlsx）
按快捷键逗ALT + F11地进入宏编辑，输入如下代码后保存。summary()为目标生成代码，SQL()为生成SQL脚本文件代码，按条件生成SQL的脚本如下：
Sub summary()
Dim i As Integer
i = 2
ThisWorkbook.Worksheets(1).Columns(2).Clear
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> " " Then
ThisWorkbook.Worksheets(1).Cells(i, 2).Value = sh.Name
ThisWorkbook.Worksheets(1).Cells(i, 2).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
sh.Name + "!A1", TextToDisplay:=sh.Name
i = i + 1
End If
Next sh

ThisWorkbook.Worksheets(1).Cells.Select

With Selection.Font
.Name = "目录"
.Size = 9
.Strikethrough = False
.Superscript. = False
.Subscript. = False
.OutlineFont = False
.Shadow = False
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
End Sub
Sub SQL()
Dim i As Integer
i = 1
Dim ADO_Stream As Object
Dim strSQL, strDelSQL As String
Dim strTblName As String
Dim col As Long
Dim row As Long
Dim str As String
Dim PK As String
Dim cnt As Integer

PK = "PK"
Dim rowcounts As Long
rowcounts = 0
Dim filecount As Long
filecount = 0
Set ADO_Stream = CreateObject("ADODB.Stream")
ADO_Stream.Type = 2
ADO_Stream.Mode = 3
ADO_Stream.Charset = "unicode"
ADO_Stream.Open

Dim checkType As String
For Each sh In ThisWorkbook.Worksheets
cnt = 0
If sh.Name <> " " And InStr(sh.Name, "template") = 0 Then
strTblName = sh.Cells(1, 2).Value
rowcounts = 1
'Insert SQL
row = 6

Do While sh.Cells(row, 1).Value <> ""
strDelSQL = "delete from " + strTblName + " where "
strSQL = "Insert into " + strTblName + " ("
col = 1
Do While sh.Cells(3, col).Value <> ""
If col <> 1 Then
strSQL = strSQL + ", "
End If
strSQL = strSQL + sh.Cells(3, col).Value
col = col + 1
Loop
strSQL = strSQL + ") VALUES ("
col = 1
Do While sh.Cells(3, col).Value <> ""

str = Trim(CStr(sh.Cells(row, col).Value))

If InStr(Trim(CStr(sh.Cells(2, col).Value)), PK) <> 0 Then
If cnt > 0 Then
strDelSQL = strDelSQL + " and "
End If
strDelSQL = strDelSQL + Trim(CStr(sh.Cells(3, col).Value)) + " = '" + str + "'"
cnt = cnt + 1
End If
If col <> 1 Then
strSQL = strSQL + ", "
End If

If (InStr(Trim(CStr(sh.Cells(4, col).Value)), "Integer") = 0) And (InStr(Trim(CStr(sh.Cells(4, col).Value)), "Decimal") = 0) And ((InStr(Trim(CStr(sh.Cells(4, col).Value)), "DATE") = 0) Or _
((Len(str) > 0) And (InStr(Trim(CStr(sh.Cells(4, col).Value)), "DATE") > 0))) Then
If (Len(str) <= 0) And (InStr(Trim(CStr(sh.Cells(5, col).Value)), "No") = 0) Then
str = "NULL"
ElseIf InStr(Trim(CStr(sh.Cells(4, col).Value)), "DATE") > 0 Then
str = "to_date('" + str + "','-mm-dd hh24:mi:ss')"
Else
str = "'" + str + "'"
End If

strSQL = strSQL + str
ElseIf (Len(str) <= 0) And (InStr(Trim(CStr(sh.Cells(4, col).Value)), "DATE") > 0) Then
strSQL = strSQL + "NULL"
Else
If (Len(str) <= 0) And (InStr(Trim(CStr(sh.Cells(5, col).Value)), "No") = 0) Then
str = "NULL"
End If

strSQL = strSQL + str
End If

col = col + 1
Loop

strDelSQL = strDelSQL + ";" + vbCrLf
ADO_Stream.WriteText strDelSQL
strSQL = strSQL + ");" + vbCrLf
ADO_Stream.WriteText strSQL
row = row + 1
Loop
End If
i = i + 1
rowcounts = 0
filecount = 0
Next sh
ADO_Stream.SaveToFile ThisWorkbook.Path & "\MstSQL(delete by condition).txt", 2
ADO_Stream.Close
Set ADO_Stream = Nothing
End Sub
点击逗保存地宏脚本，主要的一步完成。
三： 在excel文件（test.xlsx）的首页创建两个图标，分别选择右键指定宏，一个指定上面的summary(),一个指定上面的SQL()。然后就可以在后续的sheet页创建自己需要生成SQL脚本的表结构名称了，记得每个sheet页面对应一个表结构及数据，使用方法如下：
A,将需要更新的对象表数据整个sheet拷进工具中，数据只保留需要更新的数据。
B,在第2行标出主键字段，填上逗PK地即可。
看看代码

---

多伦县13192746356： 怎么制作点读机教材Excel脚本数据 - ？
叶胡救尔： 一: 在本地PC新建一个Excel文件(例如:excel2007) 准备工作,左键选择excel文本左上角的图标,选择逗Excle选项地.1. 点击逗信任中心地->逗信任中心设置地->逗宏设置地->选择逗启用所有宏...地选项.逗开发人员宏设置地选项也勾选上...

多伦县13192746356： 如何将Excel中表结构数据自动生成SQL脚本的方法 - ？
叶胡救尔： 一: 在本地PC新建一个Excel文件(例如:excel2007) 准备工作,左键选择excel文本左上角的图标,选择“Excle选项”.1. 点击“信任中心”->“信任中心设置”->“宏设置”->选择“启用所有宏...”选项.“开发人员宏设置”选项也勾选上...

多伦县13192746356： 如何利用按键精灵制作一个在excel表中逐一复制数 - ？
叶胡救尔： 将读取数据时的行或列设置成变量,每读一次,变量增加1.

多伦县13192746356： 每天读音语点读机制作表格,这个表格怎样做? - ？
叶胡救尔： 表格的制作是根据功能来完成的,一般是设置表头,设置格式,输入公式,汇总结果.

多伦县13192746356： 编写一个脚本 ex8.sh,用于统计所指定文件的行数总数.输出结果为各个文件的名字+行数,以及总行数. - ？
叶胡救尔： #!/bin/bash if [ $# != 1 ] then echo ＂usage ex8.sh ＂ exit 1 fi if [ ! -d $1 ] then echo ＂usage ex8.sh ＂ exit 1 fi cd $1 fileName=$(ls -l $1 | awk '/^-/{print $NF}') wc -l $fileName > summary.txt cat summary.txt

多伦县13192746356： 怎样下载点读机四年级上下册语文数学和英语教材 - ？
叶胡救尔： 1、首先在网页上找到你的点读机牌子的官网,如下图:2、进入后,在首页找到下载栏,左键点击“下载”下方的“资料下载”,如下图:3、选择点读机的机型,并点击进入,如下图: 4、在弹出的画面中,您可以选择你所需要的资料(如模块、科目、年级、学期等选项),如下图: 5、选择好你要下载的内容后,画面会弹出如下图的画面.这时,点击“下载至机器”或“下载”即可以把资料下载至点读机(需连接好数据线)或电脑上.这样就可以了.希望能给你带来帮助!

多伦县13192746356： 点读机怎么下载教材 - ？
叶胡救尔： 解决方法:1. 点读机官网的课件下载页面. 2. 选择点读机相应型号(型号不同课件可能不同). 3. 筛选下年级、科目、出版社后找到需要的课本,然后下载文件到本地. 4. 把文件通过数据线或U盘拷贝到点读机里. 5. 在点读机选择装载此课件后即可使用了.

多伦县13192746356： qtp创建一个新的excel的脚本 - ？
叶胡救尔： On error resume next'读取excel数据'创建excel对象 Set oe=CreateObject(＂excel.application＂)'excel可见模式'oe.Visible=true'打开资源并将内容复制到新工作簿中后关闭源文档 Set oss=oe.workbooks.open(testpath & filename & ＂.xls＂) Set os=...

多伦县13192746356： 以Excel表格数据为数据源,脚本读取、处理、回填?？
叶胡救尔： WalkLan手册中wkFile类中有下面几个成员函数可用吗?class wkFile{ ... //打开excel文件 bool excelOpen(string sheetName); //关闭excel文件 void excelClose(); //获取excel单元格 bool excelGetCell(string& val, int row, int col, int sheetIndex = 0...

多伦县13192746356： Applescript做excel脚本遇到小白问题 - ？
叶胡救尔： 找空列只能循环查找了 粘贴,可以用***.Range(***).Value=***.Range(*).Value直接计数就行,相当于复制粘贴