如何将记事本乱码文字转换成简体中文

2023年12月29日发(作者：)

如何将记事本乱码文字转换成简体中文

如何将记事本乱码文字转换成简体中文

问题分析:

造成记事本打不开的原因有很多。其中包括电脑的字体库不充分,通过记事本打 开及保存的编码不正确,软件故障以及兼容性的问题。所以要根据具体情况来分析记 事本打开出现乱码的故障。

解决方法

一、最简单的方法就是将 txt 文档的后缀名改掉,要改成原所编辑的格式,比 如原先是 word 文档格式,保存的时候保存的是 txt 格式,这样只能尝试改回 doc 格式, 然后在用 word 打开即可,查看能不能显示正常。这种情况的解决方法就是用什么软件 编写的 txt 文件就用什么软件打开。如果将一个网页格式 html 格式保存 txt

文件的话,将 其 txt 后缀名修改为 html ,然后直接打开就是一个网页,因为用 txt 打开的话都是一些代 码所以以为就是代码出错的症状。

二、用户所打开的记事本文档上面的字体系统不能识别,说明电脑字体库不够充 分,可以尝试在网上上下载 windows 宋体、楷体等字体,再来重新打开 txt 文档查看是 否正常。

三、编码问题导致记事本打开乱码也是很常见的,原所编写保存的 txt 文档是 Unicode 、 UTF-8、 Unicode big endian类型,而电脑默认打开的是 ANSI 类型。可以将 txt 文件 “ 另存为 ” ,在另存为选择编码的时候换成 Unicode 或者其他编码试试能不能解决 记事本乱码的现象。

四、还有就是不是 .txt 文件右键选择打开方式选择了记事本,打不开也很正常。比 如说将一个 word 文档通过记事本的方式打开的话,就有乱码情况,这种情况只能通过 word 文档的方式打开,而不能直接通过 txt 文件的方式进行打开。并不是什么文件都能 用记事本打开的,可能能打开但是就会有乱码的现象,而只能在记事本上编写好的内 容才能正常打开并且正常显示编辑记事本的内容。

五、终端输入 gconf-editor 调出 gconf-edi(输入 gconf-editor 即可,前面不需要加 Sudo ,依次点开 apps---gedit-2---preferences---encodings 中的 auto-detected ,在双击弹 出对话框中依次加入 GB18030, GBK , GB2312, 然后将 GB18030,GB2312移到最上。最 后打开 .txt 文件,问题就解决了。

(本文内容由百度知道网友 lower 米一 g 贡献

本文:百度知道知科技

怎么将pdf转excel转换

有时候我们需要将其他格式文件转换成PDF文件进行使用,例如将EXCEL。怎么将pdf转excel转换呢?

这里我们就讲怎么将Excel转换成PDF文件:

1. 打开PDF转换器,点击进入软件。

2.

选择您需要使用的模式,如果需要将文件转化为Excel 文档,点击左上角的"pdf转Excel"模式。

3.

点击左下角的的"添加文件",把需要转换的文件添加进来,一次可添加多个文件。同时选择转换后文件需要保存的位置。

4.

点击右边"开始转换"按钮,软件就开始转换了。

如果工作中PDF转换成Excel文件比较多的情况下,也可以选择批量的进行来转换的。

两种方法为Excel表格添加背景并打印

有些企业需要在打印的Excel表格中加入公司背景或者公司LOGO，我们可以用两种方式快速地在Excel表格中加入图片背景并进行打印。

第一种方法：快捷键法

第一步：打开Excel工作表→格式→工作表→背景→选择一张图片→插入(图1。

第二步：选择要打印的区域，按住Shift键不放→编辑→复制图片→确定(图2。

第三步：按住Shift键不放→编辑→粘贴图片→格式→工作表→背景→删除背景。按一下打印预览按钮，看一看是不是能够打印出背景了。

注意：在第二步和第三步的操作中，要始终按住Shift键不放，否则不会出现“复制图片”和“粘贴图片”。

第二种方法：运用照相机法

第一步：打开Excel工作表→工具→自定义→命令→在类别框中选择“工具”→在命令框中找到“照相机”并把它拖到工具栏中→关闭(注：在Word 2000中叫“摄影”;在Word 2003中叫“照相机”(图3。

参考阅读：Excel中鲜为人知的“照相机”功能

第二步：选择格式→工作表→背景→选择一张图片→插入。

第三步：选择要打印背景的区域→单击工具栏上的“照相机”按钮(图4。

第四步：单击Sheet2工作表→单击工具栏上的“照相机”按钮，调整一下位置。也可把图片复制到Word文档中进行打印。

如何为Word添加背景

2020 -07-08 信息来源：计算机应用技巧网

视力保护色： 【大 中 小】【打印本页】【关闭窗口】

Word 只在 Web 版式视图中显示用“格式”菜单中的“背景”命令添加的背景，这些背景不是为打印文档设计的。

单击“格式”菜单中的“背景”命令，再单击所需颜色，或单击“其他颜色”命令，查看其他可供使用的颜色。单击“填充效果”命令可选择特殊效果（如纹理）。如图1所示。选择所需选项。

如果没有为在 Word 中创作的 Web 页指定背景，那么将使用 Web 浏览器中设置的默认背景色。

除了“纹理”选项卡上所显示的纹理外，还可以用任何图像作为纹理。方法是：单击“纹理”选项卡上的“其他纹理”按钮，切换到包含所需文件的位置，选择该文件，然后单击“确定”按钮。

创建 Web 页时，Word 会将纹理保存为独立的图形文件（如 ）。在默认情况下，该文件会被保存在一个支持文件文件夹内（此支持文件夹位于 Web 页所在文件夹中）。若需改变图形文件的存放位置，请单击“Web 选项”对话框中“文件”选项卡。

用图片作为背景

1、单击“格式”菜单的“背景”子菜单中的“填充效果”命令，再单击“图片”选项卡。如图2所示。

2、单击“选择图片”按钮，切换到包含所需图片的文件夹，选择一张图片，然后单击“插入”按钮。

给打印文档添加水印

要打印水印，必须将其插入页眉或页脚。但这并不意味着水印只能位于页面的顶部或底部，位于页面上任何位置的水印均可打印出来。

1、单击“视图”菜单中的“页眉和页脚”命令。

2、单击“页眉和页脚”工具栏上的“显示/隐藏文档文字”按钮，以隐藏主文档中的文本和图形。

3、插入图形（即自选图形、剪贴画、艺术字或图片等图形对象），或插入文本框。

4、单击“页眉和页脚”工具栏上的“关闭”按钮。

要查看水印在打印出的页面上的效果，请使用页面视图或打印预览。如果水印使页面上文本的不易辨认，可以淡化用来创建水印的对象。

大家知道，在Word中可以将“奇数页”和“偶数页”分开打印，从而实现多页文档的“双面打印”效果。但是，在Excel中却没有这一功能。下面，我们就以Excel2020为例，为其添加一个具有“双面打印”功能的按钮。

一、展开“开发工具”选项卡

要在Excel中实现“双面打印”，就要用到其内嵌的VBA功能，因此，需要先展开“开发工具”选项卡。

启动Excel2020，单击左上角的软件图标，在随后出现的下拉菜单中(如图1)，选择“Excel选项”选项，打开“Excel选项”对话框(如图2)。

先在左侧选中“个性化设置”选项，然后在右侧“使用Excel时采用的首选项”下面选中“在功能区显示‘开发工具’选项卡”，确定返回。

二、生成“个人宏工作簿”

为了让“双面打印”按钮对所有工作簿都有效，我们需要将其保存在“个人宏工作簿”中。第一次使用“宏”这个功能时，需要先让软件生成一个隐藏的“个人宏工作簿”。

切换到“开发工具”选项卡中，单击其中的“录制宏”按钮，打开“录制新宏”对话框(如图3)。输入一下宏名称(如“smdy”)，按“保存在”右侧的下拉按钮，在随后出现的下拉列表中，选择“个人宏工作簿”选项，确定进入“宏”录制状态。

不需要进行任何操作，直接单击“开发工具”选项卡中的“停止录制”按钮，系统会自动生成一个隐藏的“个人宏工作簿”。

特别提醒:以后需要在“个人宏工作簿”中编辑宏时，就不需要再进入此步操作了。

三、编辑“双面打印”代码

单击“开发工具”选项卡上的“Visual Basic”按钮，进入VBA编辑状态(如图4)。

特别提醒:按“Alt+F11”组合键，即可快速进入VBA编辑状态。

在左侧“工程资源管理器”中，展开“VBAProject()”选项(这就是“个人宏工作簿”)，双击其中的“模块1”，然后用下述代码替换右侧编辑区中的原有代码:

Sub smdy()

On Error Resume Next

x = ExecuteExcel4Macro("nt(50)")

For i = 1 To Int(x / 2) + 1

ExecuteExcel4Macro "PRINT(2," & 2 * i - 1 & "," & 2 * i - 1 &

",1,,,,,,,,2,,,TRUE,,FALSE)"

Next i

MsgBox "请将打印纸反向装入打印机中", vbOKOnly, "打印另一面"

For j = 1 To Int(x / 2) + 1

ExecuteExcel4Macro "PRINT(2," & 2 * j & "," & 2 * j &

",1,,,,,,,,2,,,TRUE,,FALSE)"

Next j

End Sub

输入完成后，关闭VBA编辑窗口返回到Excel编辑状态。

电脑里怎么添加pdf打印机打印excel文件

Pdf打印机通过戴南哦虚拟打印的方式，可预览文件打印效果，并在打印文件的同时能够将文件进行转换。

我们知道了它的作用，可怎么在电脑中添加pdf打印机，又怎么用pdf打印机打印Excel文件呢？接下来小编将逐个为大家揭晓答案。

1、想要使用pdf打印机，先要保证你的电脑已经下载pdf打印机了，这里小编使用迅捷pdf虚拟打印机演示，需要下载的朋友，打开百度搜索关键词即可下载。

2、打开计算机中的硬件与声音，选择本地下载完成的迅捷pdf虚拟打印机添加到计算机的系统打印机中。

3、打开计算机的设备与打印机，可以看到我们刚刚添加的迅捷pdf虚拟打印机添加完成，接下来就准备将Excel表格进行打印。

4、打开需要打印的Excel表格，将打印机名称选择为迅捷pdf虚拟打印机，其它设置根据需要选择，接下来确定打印文件。

5、点击迅捷pdf虚拟打印机软件，会弹出一个保存界面，确认需要打印的Excel文件正确后，点击保存按钮即可打印成功，打开查看的效果就是真实打印的效果，所以放心打印使用吧。

看完文章，相信大家已经学会在电脑中添加pdf打印机以及打印Excel文件，其实该打印机还能给文件加密，添加附件、背景，合并更功能，具体操作就等着大家去亲身体验吧，希望本文对你有所帮助。

用EXCEL制作一份万年历

今天我们介绍用Excel制作万年历的方法。这个万年历可以显示当月的月历，还可以随意查阅任何日期所属的月历，非常方便。如果你愿意，还可以让它在特殊的日子里显示不同的提醒文字，一起来试试吧！

本文所涉及到的函数有：

1、AND (logical1,logical2, ...

2、DATE (year,month,day

3、DAY (serial_number

4、IF (Logical,Value_if_true,Value_if_false

5、INT (number

6、MONTH (serial_number

7、NOW (

8、OR (logical1,logical2, ...

1、启动EXCEL2003，新建一个工作表，取名保存（如万年历.xls），并在相应的单元格中，输入如图1所示的文本。

2、同时选中B1、C1、D1单元格，按“格式”工具栏上的“合并及居中”按钮，将其合并成一个单元格，并输入公式：=TODAY（）。

选中B1（合并后的）单元格，执行“格式→单元格”命令，打开“单元格格式”对话框（如图2），在“数字”标签中的“分类”下面选中“日期”选项，再在右侧“类型”下面选中“二○○一年三月十四日”选项，“确定”退出，将日期设置成中文形式。

注意：TODAY（）函数用于提取当前系统日期，请将系统日期一定要调整准确哟。

3、选中F1单元格，输入公式：=IF(WEEKDAY(B1,2=7,"日",WEEKDAY(B1,2；选中H1单元格，输入公式：=NOW（）。

选中F1单元格，打开“单元格格式”对话框，在“数字”标签中的“分类”下面选中“特殊”选项，再在右侧“类型”下面选中“中文小写数字”选项，“确定”退出，将“星期数”设置成中文小写形式；选中H1单元格，打开“单元格格式”对话框，在“数字”标签中的“分类”下面选中“时间”选项，再在右侧“类型”下面选中一款时间格式，“确定”退出。

注意：①上述前面一个公式的含义是：如果（IF）当前日期（B1）是星期“7”（WEEKDAY(B1,2=7），则在F1单元格中显示“日”，否则，直接显示出星期的数值（WEEKDAY(B1,2）。

②上述第二个函数（NOW（））用于提取当前系统日期和时间，也请将系统日期和时间调整准确。

4、在I1、I2单元格分别输入1900、1901，然后同时选中I1、I2单元格，用“填充柄”向下拖拉至I151单元格，输入1900—2050年份序列。

同样的方法，在J1至J12单元格中输入1—12月份序列。

5、选中D13单元格，执行“数据→有效性”命令，打开“数据有效性”对话框（如图3），按“允许”右侧的下拉按钮，选中“序列”选项，在“来源”下面的方框输入：=$I$1:$I$151，“确定”退出。

同样的操作，将F15单元格数据有效性设置为“=$J$1:$J$12”序列。

注意：经过这样的设置以后，当我们选中D15（或F15）单元格时，在单元格右侧出现一个下拉按钮，按此下拉按钮，即可选择年份（或月份）数值，快速输入需要查询的年、月值。

6、选中A2单元格（不一定非得是A2哟），输入公式：=IF(F13=2,IF(OR(D13/400=INT(D13/400,AND(D13/4=INT(D13/4,D13/100<>INT(D13/100,29,28,IF(OR(F13=4,F13=6,F13=9,F13=11,30,31，用于获取查询“月份”所对应的天数（28、29、30、31）。

注意：上述函数的含义是：如果查询“月份”为“2月”（F13=2）时，并且“年份”数能被400整除[D13/400=INT(D13/400]，或者（OR）“年份”能被4整除，但不能被100整除[AND(D13/4=INT(D13/4,D13/100<>INT(D13/100]，则该月为29天（也就是我们通常所说的“闰年”），否则为28天。如果“月份”不是2月，但是“4、6、9、11”月，则该月为30天。其他月份天数为31天。

7、选中B2单元格，输入公式：=IF(WEEKDAY(DATE($D$13,$F$13,1,2=B3,1,0。再次选中B2单元格，用“填充柄”将上述公式复制到C2—H2单元格中。

注意：①上述B2公式的含义是：如果“查询年月”的第1天是星期“7”（WEEKDAY(DATE($D$13,$F$13,1,2=B3）时，在该单元格显示“1”，反之显示“0”），为“查询年月”获取一个对照值，为下面制作月历做准备。

②上述C2—H2单元条中公式的含义与B2相似。

③在用拖拉法复制公式时，公式“绝对引用”的单元格（加了“$”号的，如“$D$13”等）不会发生改变，而“相对引用”的单元格（没有加“$”号的，如“B3”等），则会智能化地发生变化，例如在E2单元格中，“B3”变成了“E3”，整个公式成为：=IF(WEEKDAY(DATE($D$13,$F$13,1,2=E3,1,0。

8、选中B6单元格，输入公式：=IF(B2=1,1,0。选中B7单元格，输入公式：=H6+1。用“填充柄”将B7单元格中的公式复制到B8、B9单元格中。

分别选中B10、B11单元格，输入公式：=IF(H9>=A2,0,H9+1和=IF(H10>=A2,0,IF(H10>0,H10+1,0。

选中C6单元格，输入公式：=IF(B6>0,B6+1,IF(C2=1,1,0。用“填充柄”将C6单元格中的公式复制到D6—H6单元格中。

选中C7单元格，输入公式：=B7+1。用“填充柄”将C7单元格中的公式复制到C8、C9单元格中。同时选中C7—C9单元格，用“填充柄”将其中的公式复制到D7—H9单元格中。

选中C10单元格，输入公式：=IF(B11>=$A$2,0,IF(B11>0,B11+1,IF(C6=1,1,0。用“填充柄”将C10单元格中的公式复制到D10—H10单元格和C11单元格中。

至此，整个万年历（其实没有万年，只有从1900—2050的151年）制作完成。

下面，我们一起来将其装饰一下。

9、选中相应的单元格，利用工具栏上的相应按钮，设置好字体、字号、字符颜色等。

选中相应的单元格，打开“单元格格式”对话框，在“对齐”标签下，设置好单元格中文本的对齐方式（通常情况下，垂直对齐可以一次性设置为“居中”，水平“对齐”根据具体情况设置）。

同时选中I列和J列，右击鼠标，选“隐藏”选项，将相应的列隐藏起来，使得界面更加友好。用同样的方法，将第2和第3行也隐藏起来。

10、选中B5—H11单元格区域，打开“单元格格式”对话框，进入“边框”标签，选择好“颜色、样式”，并“预置”好边框范围，然后“确定”退出，为月历加上边框。

11、执行“工具→选项”命令，打开“选项”对话框（如图4），在“视图”标签下（通常是默认标签），清除“零值”和“网格线”复选框中的“∨”号，“确定”退出，让“零值”和“网格线”不显示出来。

12、将B14—H14和B15—H15单元格分别合并成一个单元格，并在B14和B15单元格中输入公式：=IF(AND(MONTH(D1=1,DAY(D1=1,"新的新气象！加油呀！",IF(AND(MONTH(D1=3,DAY(D1=8,"向女同胞们致敬！",IF(AND(MONTH(D1=5,DAY(D1=1,"劳动最光荣",IF(AND(MONTH(D1=5,DAY(D1=4,"青年是祖国的栋梁",IF(AND(MONTH(D1=6,DAY(D1=1,"原天下所有的儿童永远快乐",0和=IF(AND(MONTH(D1=7,DAY(D1=1," 的恩情永不忘",IF(AND(MONTH(D1=8,DAY(D1=1,"提高警惕，保卫祖国！",IF(AND(MONTH(D1=9,DAY(D1=10,"老师，您辛苦了！",IF(AND(MONTH(D1=10,DAY(D1=1,"祝我们伟大的祖国繁荣富强",0。

设置好B14和B15单元格的字体、字号、字符颜色。

注意：上述公式的含义是：如果当前日期逢到相关的节日（如“元旦”等），则在B14或B15单元格显示出相应的祝福语言（如“新的新气象！加油呀！”，参见图5）。

由于IF函数只能嵌套7层，而节日数量超过7个（我们这里给出了9个），因此，我们用两个单元格来显示。 13、执行“格式→工作表→背景”命令，打开“工作表背景”对话框（如图6），选择一张合适的图片后，按“插入”按钮，将其衬于工作表文字下面。

14、在按住“Ctrl”键的同时，单击D13和F13单元格，同时选中两个单元格，开“单元格格式”对话框，切换“保护”标签（如图7），清除“锁定”前面复选框中的“∨”号，“确定”退出。

15、执行“工具→保护→保护工作表”命令，打开“保护工作表”对话框（如图8），两次输入密码后，确定退出。

注意：经过这样的设置后，整个工作表中除了D13和F13单元格中的内容可以改变外，其它单元格中的内容均不能改变，保证了万年历的使用可靠性。

在VB中操纵Excel

一．Excel对象模块

Application

对象 | 集合

----------------------------------

|-----Assistant |----Addins(Addin

|-----AutoComect |-----OLEDBErrors

|-----Debug |-----CommandBars(CommandBar

|-----VBE |-----Dialogs(Dialog

|-----WorksheetFunction |-----RecentFilds(RecentFile

|-----DefaultWebOptions |-----Windows(Window

|-----LanguageSettings |-----Workbooks(Workbook

|-----Filesearch |------Names(name

|-----AnswerWizard |------ODBCErrors

最上层的Application是指整个应用程序，其中最常用到的Workbooks代表活页簿集合，在其后的括号内的Workbook是指一个工作簿。

在VB中要打开Excel，首先要引用Microsoft Excel 9.0(或8.0）Object Lobrary。

打开的步骤是：（1）定义两个变量，数据类型指定为ation．ok.

(2激活Excel应用程序。（3）打开工作簿(我们假设在当前路径下有一个工作簿）。

代码如下：

Option Explicit

Public appExcel As ation

Public wbExcel As ok

Private Sub Setup_Excel_object(

Set appExcel = CreateObject("ation"

Set wbExcel = ( & ""

e = True '使对象可见

End Sub

二．工作表对象Worksheet

Workbooks对象有一个集合对象－－工作表Worksheets,，用来放工作表相关的资料。

Workbooks(workbook

对象 | 集合

－－－－－－－－－－－－------------

|----HTMLProjcet |----Publishobjects

|----RoutingSlip |----DocumentProperties

|----Areas |----Worksheets

|----WebOptions |----Names

|----VBProject |----CustomViews

|----CommandBars

|----PivotCaches

|----Windows

|----Styles

|----Charts

调用方法是声明一个工作表变量，用For-Each循环方式可以读取集合对象Workbooks里的所有工作表名。

代码如下：

Dim temp As eet

For Each temp In eets 'wbExcel是上面代码中声明的Workbook

m

Next

三．读取工作表某个选取范围的内容。

要读取工作表某个范围单元格，可先定义一个Excel范围对象变量，然后使用Rows或Columns函数指定某行或某列的范围，范围单元格（Cells地址以目前被选取范围为基准。具体方法如下：

（1）设置工作表对象变量操作哪个工作表；

（2）选取工作表的某行或某列；

（3）在上面的选取范围内读取某个单元格内容。

代码如下：

Dim Tempsheet As eet '定义Excel工作表

Dim TempRange As '定义Excel工作表范围变量

'第一步：选取工作表Sheet1

Set Tempsheet = eets("sheet1"

'第二步：选取第二行(以这行为第一行）

Set TempRange = (2

'第三步：读取范围内第一行．第二列的单元格

= (1, 2

四．其他

用("".Column方法可以查找目前范围内第一行的第一个空白单元格

如何实现VB与EXCEL的无缝连接

2003-02-17· ·吴刚··yesky

VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。

一、 VB读写EXCEL表：

VB本身提自动化功能可以读写EXCEL表，其方法如下：

1、在工程中引用Microsoft Excel类型库：

从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。

2、在通用对象的声明过程中定义EXCEL对象：

Dim xlApp As ation

Dim xlBook As ok

Dim xlSheet As eet

3、在程序中操作EXCEL表常用命令：

Set xlApp = CreateObject("ation" '创建EXCEL对象

Set xlBook = ("文件名" '打开已经存在的EXCEL工件簿文件

e = True '设置EXCEL对象可见（或不可见）

Set xlSheet = eets("表名" '设置活动工作表

(row, col =值 '给单元格（row,col）赋值

ut '打印工作表

(True '关闭工作簿

'结束EXCEL对象

Set xlApp = Nothing '释放xlApp对象

oMacros (xlAutoOpen '运行EXCEL启动宏

oMacros (xlAutoClose '运行EXCEL关闭宏

4、在运用以上VB命令操作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它操作，也能够关闭EXCEL，同时也可对EXCEL进行操作。但在EXCEL操作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL对象，则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况，使得VB与EXCEL脱节。

二、 EXCEL的宏功能：

EXCEL提供一个Visual Basic编辑器，打开Visual Basic编辑器，其中有一工程属性窗口，点击右键菜单的"插入模块"，则增加一个"模块1"，在此模块中可以运用Visual Basic语言编写函数和过程并称之为宏。其中，EXCEL有两个自动宏：一个是启动宏（Sub Auto_Open(），另一个是关闭宏（Sub Auto_Close(）。它们的特性是：当用EXCEL打含有启动宏的工簿时，就会自动运行启动宏，同理，当关闭含有关闭宏的工作簿时就会自动运行关闭宏。但是通过VB的自动化功能来调用EXCEL工作表时，启动宏和关闭宏不会自动运行，而需要在VB中通过命令oMacros (xlAutoOpen和oMacros (xlAutoClose 来运行启动宏和关闭宏。

三、 VB与EXCEL的相互勾通：

充分利用EXCEL的启动宏和关闭宏，可以实现VB与EXCEL的相互勾通，其方法如下：

在EXCEL的启动宏中加入一段程序，其功能是在磁盘中写入一个标志文件，同时在关闭宏中加入一段删除此标志文件的程序。VB程序在执行时通过判断此标志文件存在与否来判断EXCEL是否打开，如果此标志文件存在，表明EXCEL对象正在运行，应该禁止其它程序的运行。如果此标志文件不存在，表明EXCEL对象已被用户关闭，此时如果要使用EXCEL对象运行，必须重新创建EXCEL对象。

四、举例：

1、在VB中，建立一个FORM，在其上放置两个命令按钮，将Ｃommand1的Caption属性改为EXCEL，Command2的Caption属性改为End。然后在其中输入如下程序：

Dim xlApp As ation '定义EXCEL类

Dim xlBook As ok '定义工件簿类

Dim xlsheet As eet '定义工作表类

Private Sub Command1_Click( '打开EXCEL过程

If Dir("D:" = "" Then '判断EXCEL是否打开

Set xlApp = CreateObject("ation" '创建EXCEL应用类

e = True '设置EXCEL可见

Set xlBook = ("D:" '打开EXCEL工作簿

Set xlsheet = eets(1 '打开EXCEL工作表

te '激活工作表

(1, 1 = "abc" '给单元格1行驶列赋值

oMacros (xlAutoOpen 运行EXCEL中的启动宏

Else

MsgBox ("EXCEL已打开"

End If

End Sub

Private Sub Command2_Click(

If Dir("D:" <> "" Then '由VB关闭EXCEL

oMacros (xlAutoClose '执行EXCEL关闭宏

(True '关闭EXCEL工作簿

'关闭EXCEL

End If

Set xlApp = Nothing '释放EXCEL对象

End

End Sub

2、在Ｄ盘根目录上建立一个名为Temp的子目录，在Temp目录下建立一个名为""的EXCEL文件。

3、在""中打开Visual Basic编辑器，在工程窗口中点鼠标键选择插入模块，在模块中输入入下程序存盘：

Sub auto_open(

Open "d:" For Output As #1 '写标志文件

Close #1

End Sub

Sub auto_close(

Kill "d:" '删除标志文件

End Sub

4、运行VB程序，点击EXCEL按钮可以打开EXCEL系统，打开EXCEL系统后，VB程序和EXCEL分别属两个不同的应用系统，均可同时进行操作，由于系统加了判断，因此在VB程序中重复点击EXCEL按钮时会提示EXCEL已打开。如果在EXCEL中关闭EXCEL后再点EXCEL按钮，则会重新打开EXCEL。

而无论EXCEL打开与否，通过VB程序均可关闭EXCEL。这样就实现了VB与EXCEL的无缝连接。

Excel制作奖金计算表

2020年08月16日 03:52:06 陈秀峰

源码下载

某公司规定：一个月奖金基数为300元，病假1天扣15元，事假一天扣30元，旷工一天扣60元，扣完为止。使用这个奖金计算表时，只要将员工的出勤情况记录在表中，该员工的奖金将自动计算出来，兼有考勤和计算奖金两种功能。自动统计表做好以后还可以保存成模板，以便以后使用。

本文所涉及到的Excel函数有：

1、COUNTIF(Range,Criteria

2、MONTH(serial_number

3、TODAY(

注意：图中符号的含义是：B表示病假，S表示事假，G表示旷工，Q表示出勤，J表示法定休息日。

1、启动Excel2003，按照图1所示的样式，制作一张二维表格，并填入相关文本。

2、将A1至BM1单元格合并成一个单元格后，输入表格标题（如“晓风公司考勤及奖金表”），并设置好字体、字号等。

3、将C2和D2单元格合并后，输入公式：=MONTH(TODAY(&"月"，用于显示出当前的月份。

注意：在上述单元格中直接输入月份数值也是可行的。

4、选中BM4单元格，输入公式：=IF(300-COUNTIF(C4:BL4,"B"*7.5-COUNTIF(C4:BL4,"S"*15-COUNTIF(C4:BL4,"G"*30>0,300-COUNTIF(C4:BL4,"B"*7.5-COUNTIF(C4:BL4,"S"*15-COUNTIF(C4:BL4,"G"*30,0，确认，计算出第一位员工的当月奖金额。

注意：上述公式的含义是：用“COUNTIF(C4:BL4,"B"、COUNTIF(C4:BL4,"S"、COUNTIF(C4:BL4,"G"”分别用于统计每位员工的病假、事假、旷工的次数，再分别乘以“7.5、15、30”（每“半天”为一次）计算出所要扣去的奖励额，再用基数“300”减去上述扣去的金额。如果（IF）差大于“0”，则显示差（即员工的奖金额），否则显示“0”（扣完为止）。

5、再次选中BM4单元格，用“填充柄”将上述公式复制到下面的单元格中，用于计算其它员工的当月奖励额。

注意：具体复制的数量，请根据员工的实际数目确定。

6、清空表格中所填写的数据，执行“文件→保存”命令，打开“另存为”对话框（如图2），按“保存类型”右边的下拉按钮，选中“模板（*.xlt）”选项，在文件名方框中输入一名称（如“奖金表.xlt”），单击“保存”按钮，将制作好的表格文档保存为模板。

7、以后，每个月第一天，启动Excel，执行“文件→新建”命令，展开“新建工作簿”任务窗格（如图3）。

点击其中的“本机上的模板”选项，打开“模板”对话框（如图4），选中“奖金表”模板文件，单击“确定”按钮即可新建一个空的“奖金表1”工作簿文档。

选中C2单元格（即保存月份的单元格），将鼠标移到编辑栏中，然后按一下F9功能键，将公式（=MONTH(TODAY(&"月"）转换为具体的值（如“12月”），最后将文档保存一下。

8、以后就可以用这个计算表逐日对员工进行考勤，到了月底就可以自动计算出奖金数据了。

把书上的字快速弄到电脑上。。。。。。。。。。。（看到之后我泪流满面）！！！

来源： 樊星的日志

在工作中，我常常在想，要是能把纸上有用的文字快速输入到电脑中，不用打字录入便可以大大提高工作效率该有多好呀！随着科技的发展， 这个问题在不断的解决，例如，现在市场上的扫描仪就带有OCR软件，可以把扫描的文字转换到电脑中进行编辑。但是，对于我们平常人来说，大多数人都是即不想多花钱购买不常用的设备，又不想费力气打字录入，那我就给大家提供一个我刚刚发现的方法吧！现在数码相机很普遍，也很常用，我们就从这里下手吧。

工具准备：

硬件： 电脑一台 数码相机

软件： word2003(其它的版本我没有实验)

doPDF （百度可以搜索下载，是一款免费的PDF制作软件）

CAJViewer软件（在百度可以搜索下载，是一款免费的阅读器）

步骤：

1、在电脑中安装 doPDF和CAJViewer

2、用数码相机把需要的文字拍下来（相机和照像水平就不多谈了。照片效果越好，可以大大缩小转换文字的误差率）

例如：

3、在word中插入你用数码相机照的书上的文字（打开word——插入菜单——图片——来自文件——选择照片——插入）

4、在word中选择文件菜单——打印——在打印机选项中选择doPDF——确定——点击“浏览”选项——选择文件保存的位置和填写文件名称——保存——确定

5、按照上面的步骤，电脑会自动打开CAJViewer软件，若没有自动打开该软件，可以自己打开CAJViewer软件，然后在CAJViewer中打开刚刚转换的PDF文件。

6、选择CAJViewer中的，然后在需要的文字部分拖动鼠标画出虚线。

7、点击发送到word按钮，就可以转换成word文件了。可以编辑了。

第6、7步骤图片如下：

要点提示：

1、照片一定要平整，最好对比强烈。（最最关键的部分）

2、用doPDF生成PDF文件不只一种用法，你也可以选择其它更好、更便捷的方法，这里只提供我本此的实验软件。

3、如果熟练的使用我的方法，用不了一分钟就可以转出若干的文字，大大提高了工作效率。

4、切记：输出的文字一定要校对呀！