利用数字字典自动获取Excel数据

最新推荐文章于 2022-09-01 17:08:26 发布
VIP文章 最新推荐文章于 2022-09-01 17:08:26 发布
阅读量1k 收藏 1
点赞数 1
分类专栏： Visual FoxPro Excel2010 文章标签： 交互
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/xcf300/article/details/121615698
版权

         在VFP系统使用过程中，经常需要获取外部Excel数据。由于外部Excel数据，包含的内容较多，字段名称以及排列顺序和系统数据表一般也不相同。

        传统方式是让用户先将外部数据复制到指定Excel模版中再导入系统。 实践发现，很多外部Excel数据的列标题及位置基本固定。因此，考虑记录这些Excel表格数据列标题及位置，编写程序实现自动导入功能。

要解决两个问题：

1、建立一个表，保存Excel表和对应dbf表结构，即数字字典。

2、编写一个通用程序，将外部Excel表数据导入内部dbf表的程序。

一、数字字典结构及内容

 图1 数字字典结构

 

图2 数据字典内容

 二、导

最低0.47元/天 解锁文章
xcf300
关注
  • 1
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
行政区划代码（2016版）Excel数据字典
06-04
自行整理的Excel版本行政区划代码表，用于数据字典的构建。
按数据字典生成生成Excel
nrs12345的专栏
09-28 402
近日实施工程师提了个需求，要把MySQL中的表按注释导出Excel。试了一下SQLYog, Navigate等工具，都不能导成想要的表格。如果要手工操作的话，字段少还好说，100+的字段，也是很蛋疼。所以写了个工具类。 创建个普通Maven工程，pom.xml如下： <project xmlns="http://maven.apache.org/POM/4.0.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" ...
Simulink 从Excel自动生成数据字典
weixin_42665742的博客
09-01 4674
Simulink中从Excel自动生成数据字典
读取excel中的表格数据到字典dict中--python
wtt234的专栏
07-19 6367
工作中需要把excel表格中的数据读取出来放到字典中，便于检索和数据处理。上述就是表格中存放的测试数据把上述数据读取存入字典中。表格的第一行都是字段信息，其他都是数据内容，这种居多。......
数据字典
君子不怨天的博客
03-16 1742
数据字典和动态性能视图 每个Oracle数据库的central set of read-only reference tables and views统称为数据字典。该动态性能视图是和数据库同时开放的，在使用中不断更新的特殊视图，Oracle数据库的重要部分是它的数据字典，它是一组只读的表，提供有关数据库的管理元数据。 一、数据字典 数据字典包含以下信息： (官方文档中关于数据字典中的信息)： 1、为模式对象分配和当前使用的空间量 2、数据库中每个架构对象的定义，包括列的默认值和完整性约束信息 3、Or
Python办公自动化视频.rar
10-23
│ │ 1.7数据结构_字典.mp4 │ │ 1.8数据结构_集合与元组.mp4 │ └ 1.9高级语法_函数.mp4 ├第2章 文件自动化处理 -再也不怕多乱差 │ │ 2.10移动文件和文件夹.mp4 │ │ 2.11删除文件或文件夹.mp4 │ │ 2.12...
基于知识图谱的图书馆电子资源自动去重方法研究
01-12
图书馆电子资源建设过程中需要统计相关数据，采用传统人工去重方法耗费时间较长，针对该问题，提出了基于知识图谱的图书馆电子资源自动去重方法研究。利用CiteSpace软件对文献中的关键词进行统计分析，提取所需信息...
Python办公自动化视频.zip
05-25
目录网盘文件永久链接 前言-软件的安装 前言-1Python开发环境的安装 前言-2集成开发环境Pycharm的安装及设置模板 第1章 Python基础从零到1 ...第3章 Excel自动化处理-从此做表不加班 3.10使用Python操作.....
精通QTP——自动化测试技术领航
07-12
3.4.3.2 高效数据字典的实现 310 3.4.4 总结 315 3.5 WshShell对象常用方法介绍 315 3.5.1 WshShell对象介绍 316 3.5.2 激活窗口AppActivat 317 3.5.3 获取当前路径CurrentDirectory 320 3.5.4 最常用的sendkeys发送...
dms 数据字典 文档 excel 实用 表结构 部分
03-15
dms 数据字典 文档 excel 实用 表结构 部分
excel数据字典转换为PDM
07-13
通过Excel数据字典转换为PDM，利用脚本模式。文件中有具体的操作步骤和图解说明。
数据字典.pdf
12-14
数据字典是一种通用的程序设计方法。可以认为，不论什么程序，都是为了处理一定的主体，这里的主体可能是人员、商品（超子）、网页、接口、数据库表、甚至需求分析等等。当主体有很多的属性，每种属性有很多的取值，而且属性的数量和属性取值的数量是不断变化的，特别是当这些数量的变化很快时，就应该考虑引入数据字典的设计方法。
行业类别数据字典（含EXCEL,SQL,HTML）
04-17
行业类别数据字典（含EXCEL,SQL,HTML）
sql自动生成并形成数据字典Excel生成建表SQL
02-25
趁这个暑假有些时间，想写些“代码生成”的文章。现在代码生成工具有很多，这里就不作探讨，自己写几个小工具，主要是了解这一个过程，记录些技术点。 计划： 1：excel生成建表SQL
mysql导出 Excel数据字典(全)
weixin_30906425的博客
04-11 185
解决问题（有mysql数据库数据表想要将表导入到PowerDesigner 或导出Excel数据字典） 一、下载工具 　　1、工具PowerDesigner 百度自行下载安装 　　2、mysql-connector-odbc 下载链接: https://pan.baidu.com/s/1cjb73f3GvkkMFAzZKi85xA 提取码: u5ih 二、mysql数据库数据表想要将表导入...
什么是数据字典？
Moneys的博客
06-17 1万+
在软件开发项目初期就设计一个数据字典，其中包含和项目密切相关的各种结构、类型定义。在开发过程中由项目成员共同维护。它像是一个字典，你可以查询项目中任何你无法理解的各种结构、类型定义、从而最大程度的消除歧义和交流不畅的问题。一个word文档就好，通过代码版本控制共享。...
MySQL数据库导出数据字典Excel表
RUI的博客
07-10 2369
刚实习那段时间整天就帮大佬写文档，有次大佬让我写数据字典，Excel文档格式如下：一行行让我用手码是不可能的，毕竟也学过计算机。整理了网上的方法，如下：先打开navicat for mysql，在查询里运行下面SQL语句：select c.TABLE_SCHEMA as '数据库', c.TABLE_NAME as '表名', c.COLUMN_NAME as '字段名称', c.COLU...
数据字典功能
热门推荐
越来越好ing的博客
11-19 15万+
1. 什么是数据字典 数据字典存储有关数据的来源、说明、与其他数据的关系、用途和格式等信息，它本身就 是一个数据库，存储“关于数据项的数据”。数据字典是个指南，它为数据库提供了“路线图”， 而不是“原始数据”。换句话说，数据字典通常是指数据库中数据定义的一种记录，类似一个 数据库的数据结构，但其内容要比数据库的数据结构描述丰富得多（Malamud, 1989）。 在收集有关数据信息，建立数据库...
vb对office操作题自动化阅卷(含源码)
最新发布
07-19
### 回答1： 自动化阅卷是指利用计算机技术，通过编写程序实现对VB对office操作题卷面的自动批阅。以下是简要的步骤及示例源码： 1. 输入题目答案：创建一个存储题目答案的数据结构，可以是数组、列表或者字典等。将需要批阅的题目答案保存到这个数据结构中。 2. 提取学生答案：通过VB操作office软件，比如Excel，读取学生答题的相关信息，将其保存到一个数据结构中。可以使用适当的数据结构，如数组、列表或字典，以便进行处理和分析。 3. 自动批阅：编写程序对学生答案进行比较并打分。比较答案可以使用循环结构遍历学生答案和标准答案，逐个进行对比。可以采用条件判断来判断答案是否正确，并将结果保存到一个变量中。 4. 输出结果：将批阅结果输出到对应的文件或软件中，如Excel或者文本文件。可以使用VB提供的API调用来实现这一步骤。 以下为示例源码，假设题目答案存在一个数组中，学生答案存在Excel的A列中： ```vb Sub AutoGrade() Dim answers As Variant answers = Array("A", "B", "C", "D") '题目答案 Dim studentAnswers As Range Set studentAnswers = Worksheets("Sheet1").Range("A:A") '学生答案所在的列 Dim result As Variant result = WorksheetFunction.Transpose(studentAnswers.Value) '将学生答案转换为数组 Dim score As Integer score = 0 Dim i As Integer For i = 1 To UBound(result) If result(i) = answers(i - 1) Then '比较答案 score = score + 1 End If Next i Worksheets("Sheet1").Range("B1").Value = score '将分数写入B1单元格 End Sub ``` 通过运行以上代码，可以自动批阅学生的答案，并将得分写入Excel的B1单元格中。可以根据实际需求进行扩展，比如添加更多题目、实现不同分值题目的权重等。 这是一个简单的例子，仅用于说明自动化阅卷的基本原理和流程，实际应用中还需要考虑更多的细节和异常情况的处理。 ### 回答2： VB对Office操作题的自动化阅卷是通过使用VBA（Visual Basic for Applications）来实现的。下面是一个简单的示例代码： Sub 自动阅卷() Dim wb As Workbook Dim ws As Worksheet Dim score As Integer ' 打开答题卡文档 Set wb = Workbooks.Open("C:\答题卡.xlsx") Set ws = wb.Sheets("Sheet1") ' 读取每个题目的答案并与参考答案比对 If ws.Range("A1").Value = "A" Then score = score + 1 End If If ws.Range("A2").Value = "B" Then score = score + 1 End If If ws.Range("A3").Value = "C" Then score = score + 1 End If ' 将分数写入单元格 ws.Range("B1").Value = score ' 关闭文档并保存 wb.Close True Set wb = Nothing Set ws = Nothing End Sub 这段代码的功能是打开一个名为“答题卡.xlsx”的Excel文档，读取第一题答案、第二题答案和第三题答案，并与预设的参考答案比对。然后，将得分写入答题卡文档的B1单元格，并保存关闭文档。 通过把这段代码保存到一个VBA宏中，然后在打开答题卡文档后运行该宏，就可以实现对Office操作题的自动化阅卷。 请注意，这只是一个简单的示例代码，实际应用中可能需要更加复杂的逻辑和处理方式，具体根据实际的题目和要求进行修改和扩展。 ### 回答3： VB是一种功能强大的编程语言，可以用来操作Office软件，实现自动化的阅卷功能。以下是一个使用VB编写的示例源码： ```vb Imports Microsoft.Office.Interop Public Class Form1 Private Sub btnGrade_Click(sender As Object, e As EventArgs) Handles btnGrade.Click Dim app As New Excel.Application ' 创建Excel应用程序对象 Dim workbook As Excel.Workbook ' 创建工作簿对象 Dim worksheet As Excel.Worksheet ' 创建工作表对象 workbook = app.Workbooks.Open("C:\Test\AnswerSheet.xlsx") ' 打开答题卡文件 worksheet = workbook.Sheets(1) ' 获取第一个工作表 Dim score As Integer = 0 ' 初始化分数 For i As Integer = 1 To 20 ' 假设一共有20道题 Dim answer As String = worksheet.Cells(i, 2).Value ' 获取参考答案 Dim studentAnswer As String = worksheet.Cells(i, 3).Value ' 获取学生答案 If answer = studentAnswer Then ' 判断学生答案是否正确 score += 5 ' 每题得5分 End If Next workbook.Close() ' 关闭工作簿 app.Quit() ' 退出Excel应用程序 MessageBox.Show("得分：" & score.ToString()) ' 显示得分 End Sub End Class ``` 这段代码使用了Excel应用程序对象来打开一个答题卡文件，并获取第一个工作表。然后，根据参考答案和学生答案的对比，计算得分。最后，关闭工作簿和Excel应用程序，并弹出一个消息框显示得分。 通过使用VB编写这样的自动化阅卷功能，可以方便地批量批改大量学生答题卡，并且减少了人工阅卷的时间和工作量。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值