关闭

【python】数据库操作

SQLite3 可使用 sqlite3 模块与 Python 进行集成。我们可视化工具使用SQLLite  Expert。 # -*- coding:UTF-8 -*- #参考资料:https://wizardforcel.gitbooks.io/w3school-db/content/sql/110.html #参考资料:http://blog.csdn.net/zmq570235977/ar...
阅读(321) 评论(0)

【python】解析中英文进阶

上一篇文章说了,如果在中文中夹杂着英文就不行了。关于中文夹杂英文,我们见下面: import re import sys type = sys.getfilesystemencoding() test = "神一般的巧合一个11朋友11,关系很好,就是那种你一张嘴他就知道你要说啥,好久没联系了,那天跟他聊天,然后他说要不交换qq干和密码玩,我说可以,我的密码是前面几个字母,后面是520,没想到他...
阅读(432) 评论(0)

【python】解析中英文

# -*- coding:UTF-8 -*- import re import sys test = "上联:光换kindle不读书,穷烧耳机不听歌。" print test if sys.version_info < (3, 4): #python 判断 :https://segmentfault.com/q/1010000000127878 pattern = re.com...
阅读(428) 评论(0)

【python】解决urllib2乱码问题

在使用python爬取数据的时候,发现获取到的数据在VSCode中,中文乱码: 错误版本如下: import urllib import urllib2 import sys type = sys.getfilesystemencoding() page = 1 url = 'http://www.qiushibaike.com/hot/page/' + str(page) user_ag...
阅读(843) 评论(0)

【一步一步学习VBA】将Excel的每行数据导出为txt文本

这里我就直接上源码: Sub 导出每行为txt() Dim i, j, arr(), brr(), myRow, myCol arr = Sheet1.UsedRange '将工作表的内容放入arr数组中 myRow = UBound(arr, 1) '计算出数组的行数 myCol = UBound(arr, 2) '计算出数组的列数 For i = 1 To myRow ...
阅读(1767) 评论(0)

【一步一步学习VBA】将Excel内容导出为单个txt文件

这里我就直接上源码:Sub 导出txt1() Dim file As String, arr, i '定义文本文件的名称 file = ThisWorkbook.Path & "\新工资表.txt" '判断是否存在同名文本文件,存在先行删除 If Dir(file) <> "" Then Kill file '将当前的数据读入数组 arr = Sheet1.Range("a1").CurrentR...
阅读(3345) 评论(0)

【一步一步学习VBA】创建用户自定义类或者自定义类型

不同类型的变量可以组合起来用来创建用户定义的类型(如熟知的 C 编程语言中的 structs)。当需要创建单个变量来记录多项相关的信息时,用户定义类型是十分有用的。 可以用 Type 语句创建用户定义的类型,该语句必须置于模块的声明部分。用户定义类型可以用适当的关键字声明为 Private 或 Public,例如: Private Type MyDataType  -或- ...
阅读(1792) 评论(0)

【一步一步学习VBA】WORD 中创建表格进行单元格合并

在WORD中插入表格我们已经在多篇文章中进行描述了,现在我们需要做的是对插入的表格进行单元格行列的合并。 在网上找了很久,发现都是行的合并,关于列的合并没有找到,于是我就只能自己写了,代码如下: Sub ctreatetable() Dim Tbl As Table Set Tbl = ActiveDocument.Tables.Add(ActiveDocument.Range...
阅读(2111) 评论(0)

【一步一步学习VBA】WORD 创建表格并合并表格

vba代码向word文档中插入表格并合并单元格,代码如下: Sub mergeCell() Dim Tbl As Table Set Tbl = ActiveDocument.Tables.Add(ActiveDocument.Range(0, 0), numrows:=2, numcolumns:=4) '在文档开头插入一个两行四列的表格 With Tbl With .Borders...
阅读(1193) 评论(0)

【一步一步学习VBA】WORD 返回每个表格单元格的内容

返回每个表格单元格的内容,并将文字指定给相应的数组元素 Sub ReturnCellContentsToArray() Dim intCells As Integer Dim celTable As Cell Dim strCells() As String Dim intCount As Integer Dim rngText As Range...
阅读(1706) 评论(0)

【一步一步学习VBA】Excel VBA 读取txt文件并写入Excel单元格(友好版)

上一篇文章我们提到:更好的处理方式就是读取将每一行,按照空格再分为不同的单元格 代码实现如下: Sub bb() Dim a, b, k%, i%, j%, q% Open "a.txt" For Input As #1 a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf) Close #1 k = UBound(a) For...
阅读(4253) 评论(0)

【一步一步学习VBA】Excel VBA 读取txt文件并写入Excel单元格

我们首先在Excel文件所在目录创建一个文件a.txt,文件内容如下: 1111 222 222 333 333 444 接着我们进行文件的读取,并且写入到Excel中,代码如下: Sub bb() Dim a, k%, i% Open "a.txt" For Input As #1 a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCr...
阅读(6441) 评论(0)

【一步一步学习VBA】Excel VBA 获取指定单元格的数据并进行字符串匹配

从上一篇文章我们可以获取到指定单元格的数据,并判断出类型。 这次要做的就是,如果这个单元格数据类型是字符串,我们就去进行子字符串的匹配,说的简单点就是判断指定单元格有没有我们需要找的字符串。 例如:判断单元格J6有没有‘√’,代码如下: Sub aa() Set a = Range("J6") If InStr(a, "√") Then MsgBox (a) ...
阅读(3491) 评论(0)

【一步一步学习VBA】Excel VBA 获取当前单元格的数据类型

从上一篇文章我们已经可以获取某单元格的数据,现在我们只要执行:MsgBox VarType(curCell)就可以获取到类型,完整代码如下: Sub Macro1() ' ' Macro1 Macro ' 宏由 cq 录制,时间: 2016/08/02 x = Sheets("Sheet1").[a5] MsgBox VarType(curCell) End Sub 我们会在弹窗看到一...
阅读(2103) 评论(0)

【一步一步学习VBA】Excel VBA 在当前目录创建一个excel表

首先我们新建一个EXcel表,然后调用出Visual Basic,同时写入代码: Sub AddNew() Dim path As String, filepath As String filepath = ThisWorkbook.path path = filepath + "\Allsales.xls" Set NewBook = Workbooks.Add With NewBo...
阅读(1071) 评论(0)
311条 共21页1 2 3 4 5 ... 下一页 尾页
    个人资料
    • 访问:1131715次
    • 积分:13284
    • 等级:
    • 排名:第1107名
    • 原创:302篇
    • 转载:9篇
    • 译文:0篇
    • 评论:170条
    微博
    博客专栏
    最新评论