中华人民共和国县以上行政区划代码
https://www.mca.gov.cn/mzsj/xzqh/2023/202301xzqh.html
https://www.mca.gov.cn/mzsj/xzqh/2022/202201xzqh.html
VFP中CHRTRAN()函数的妙用
作者：csyx
?CHRTRAN("a,b,c,d,e,f", "abcdef", "123456")
VFP获取系统默认打印机的设备名
作者：吹水佬
DECLARE long GetDefaultPrinter IN winspool.drv string@,long@
nlen = 0
GetDefaultPrinter(NULL, @nLen)
cName = SPACE(nLen)
IF GetDefaultPrinter(@cName, @nLen) != 0
? LEFT(cName,nLen-1)
ELSE
? "没有默认打印机"
ENDIF
两个日期之间共有多少月份的计算公式
(YEAR(Date2) - YEAR(Date1)) * 12 + MONTH(Date2) - MONTH(Date1) + 1
其中 Date2 >= Date1
VFP导航按钮是否可用
* 导航按钮是否可用
DO CASE
CASE BETWEEN(RECCOUNT(),0,1) && 记录数为0或1
ThisForm.Command1.Enabled = .F.
ThisForm.Command2.Enabled = .F.
ThisForm.Command3.Enabled = .F.
ThisForm.Command4.Enabled = .F.
CASE RECCOUNT()>1 AND RECNO()=1 && 在第一条记录...
合并单元格
oExcel = CREATEOBJECT('Excel.Application')
WITH oExcel
.Workbooks.Add(-4167)
.Visible = .T.
* 指定区域的单元格分行合并
.WorkSheets(1).Cells(1, 1).Resize(3, 4).Merge(.T.)
.ActiveSheet.Cells(1, 1).Value = "指定区域的单元格分行合并"
* 指定区域的单元格合并为一个单元格
.WorkSheets(1).Cells(5, 1).Resize(3, 4).Mer...
隐藏指定行或列
oExcel = CREATEOBJECT('Excel.Application')
WITH oExcel
.Workbooks.Add(-4167)
.Visible = .T.
.ActiveCell.EntireRow.Cells(5, 1).Value = 5
.Worksheets(1).Columns(6).Hidden = .T.
.Worksheets(1).Rows(6).Hidden = .T.
ENDWITH
删除数据区域的空白行列
oExcel = CREATEOBJECT('Excel.Application')
WITH oExcel
.Workbooks.Add(-4167)
* 添加测试数据
.ActiveSheet.Cells(2, 2).Value = "abcd"
.ActiveSheet.Cells(4, 4).Value = "abcd"
.ActiveSheet.Cells(6, 6).Value = "abcd"
.ActiveSheet.Cells(100, 10).Value = "ABCD"
*删除空白行
lnRow = .ActiveSheet.U...
构造VFP中SQL命令字段表达式
* 构造VFP中SQL命令字段表达式
CREATE CURSOR km (xk c(10))
INSERT INTO km VALUES ("语文")
INSERT INTO km VALUES ("数学")
INSERT INTO km VALUES ("英语")
INSERT INTO km VALUES ("物理")
INSERT INTO km VALUES ("化学")
INSERT INTO km VALUES ("思想品德")
INSERT INTO km VALUES ("历史")
lcStr = "zkzh, xm"
SCAN
lcStr = ...
二进制与十进制互转
CLEAR
n10=ASC('D')
c02=''
DO WHILE n10 > 0
n = MOD(n10, 2)
n10 = INT(n10 / 2)
c02=STR(n, 1) + c02
ENDDO
MESSAGEBOX(c02)
返回除汉字以外的所有字符
cStr = "中华人民共和国美335*226利坚合众MF-335国大不7*3列颠"
re = Createobject("VBScript.RegExp")
re.Global = .T.
re.Ignorecase = .T.
re.Pattern = "[\u4e00-\u9fa5]"
**********************************
* 下面代码，返回所有汉字 *
*re.Pattern = "[^\u4e00-\u9fa5]"
****************************
?re.replace(cStr,"")
vfp 时间戳与时间(年月日时分秒格式）之间互相转换
时间转换为时间戳(结果为秒)
datetime()-datetime(1970,1,1,0,0,0)
时间戳(为：1548753480，结果以秒为单位)转换为时间
datetime(1970,1,1,0,0,0)+1548753480
读入国家授时中心数据
XmlDoc=CREATEOBJECT('Microsoft.XMLDOM')
XmlDoc.async=.F. &&设置同步下载
Ret=XmlDoc.Load('http://www.time.ac.cn/timeflash.asp?user=flash') &&读入XML文件(国家授时中心数据)
IF Ret=.T.
XMLTOCURSOR(XmlDoc.xml,'tDatetime',0)
SELECT tDatetime
BROWSE
ENDIF
json日期时间转换为VFP的日期时间
?DATETIME(1970,1,1,0,0,0)+(1542351588000/1000)
1542351588000 为1970-1-1 00:00:00 到指定日期时间时的毫秒数
结果为：2018-11-16 06:59:48
VFP 控制 EXCEL2003 之 010、快速画表格
oExcel = CreateObject("Excel.Application")
WITH oExcel
.WorkBooks.Add
WITH .Cells(1,1).Resize(5,5)
.Value = "ABC"
.Borders.LineStyle = 1
.BorderAround(-4119,, 37) && 加外框及颜色，此行代码也可以不要。
ENDWITH
.Visible = .T.
ENDWITH
VFP 控制 EXCEL2003 之 009、应用于 Workbook 对象的 SaveAs 方法
保存对不同文件中的工作表的更改。
语法
expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)
expression 必需。该表达式返回上述对象中一个对象。
参数
Filename 字符型，可选。
该字符串表示要保存的文件名。一定要包含完整路径。如果不指...
VFP 控制 EXCEL2003 之 008、应用于 Workbook 对象的 Close 方法
关闭对象。
语法
object.Close(SaveChanges, Filename, RouteWorkbook)
参数
SaveChanges 逻辑型，可选。
如果工作簿没有改变则忽略此参数；
如果工作簿发生了改变并且在另外的窗口中也打开了该工作簿，则仍然忽略此参数；
如果工作簿发生了改变并且没有在另外的窗口中打开，则此参数将指定是否在工作簿中保存所发生的更改。
取值与操作如下表所示：
值 作用
.T. 将改变保存到工作簿。如果该工作簿尚未命名，则使用 FileName 指定的名称。如果省略 FileName 参数，则要求用户输...
VFP 控制 EXCEL2003 之 007、应用于 Workbook 对象的 Open 方法
打开一个工作簿。返回一个 Workbooks 对象。
语法
object.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)
参数
FileName 字符型，必需。要打开的工作簿的文件名。
UpdateLinks 整型，可选。指定文件中链接的更新方式。
如...
VFP 控制 EXCEL2003 之 006、应用于 Workbooks 对象的 Add 方法
新建工作簿。新建的工作簿将成为活动工作簿。返回 Workbook 对象。
语法
object.Add(Template)
该表达式返回一个 Workbooks 对象。
参数
Template 字符型或整型，可选。确定如何创建工作簿。
如果本参数指定为一现有 Microsoft Excel 文件名的字符串，那么创建新工作簿将以该指定的文件作为模板。
如果本参数为常量，新工作簿将包含指定类型的单张工作表。可为下表 XlWBATemplate 枚举中常量之一。XlWBATemplate 枚举
常量 值 描述
xlWBATChart -410...
VFP 控制 EXCEL2003 之 005、应用于 Sheets 对象的 Add 方法
新建工作表、图表或宏表。新建的工作表将成为活动工作表。使用 Add 方法可创建一个新的工作表并将它添加到集合。
语法
表达式 .Add( Before, After, Count, Type )
表达式 一个代表 Sheets 对象的变量。
参数
名称 必需/可选 数据类型 说明
Before 可选 对象型 指定工作表的对象，新建的工作表将置于此工作表之前。
After 可选 对象型 指定工作表的对象，新建的工作表将置于此工作表之后。
Count 可选 数值型 要添加的工作表数。默认值为 1。
Type 可选 数值型 指定工作表类型。可以...
文章分类
文章归档
- 2024年05月(1)
- 2023年04月(1)
- 2023年03月(2)
- 2022年04月(1)
- 2021年06月(3)
- 2021年03月(1)
- 2020年06月(1)
- 2019年05月(1)
- 2019年01月(1)
- 2018年12月(1)
- 2018年11月(1)
- 2018年09月(10)
- 2018年08月(2)
- 2017年11月(7)
- 2017年09月(2)
- 2017年07月(1)
- 2016年12月(1)
- 2016年11月(2)
- 2016年10月(4)
- 2016年09月(3)
- 2016年08月(1)
- 2016年07月(1)
- 2016年05月(2)
- 2016年01月(2)
- 2015年11月(6)
- 2015年10月(1)
- 2015年08月(2)
- 2015年06月(2)
- 2015年05月(5)
- 2015年04月(25)
- 2015年03月(33)
- 2015年02月(32)
展开
收起
收起最新评论
- sostemp：ADO方式也比较好的。
- z12689：
- sdta：加我好友，QQ:243688667
- 刀密况进：做了一个目录，第二列：到提取每个工作表的名称（已经做到了），第三列：想要实现对应的工作表能够打...
- 刀密况进：太高深了。这个有点看不懂。有没有更具体的操作流程图或更详细的讲解呢。谢谢。
- 小805805：留下脚印 有用！