文章关键字 ‘vb’
2012年02月18日，星期六
今天朋友要安装office2010没有激活 的!
最后内事问百度,外事问谷歌,房事问搜狗的方法找到了答案.
下载地址，不予提供了，网上有的是。
以下是朋友编写的批处理程序。
激活后需要备份3个文件
C:\Program Files\Common Files\Microsoft Shared\OFFICE14\Office Setup Controller\pkeyconfig-office.xrm-ms
C:\ProgramData\Microsoft\OfficeSoftwareProtectionPlatform\tokens.dat
C:\ProgramData\Microsoft\OfficeSoftwareProtectionPlatform\Cache\cache.dat
以上以win7下安装office2010，默认路径，将这3个文件放在同一文件夹下，建个批处理@echo offecho 请在管理员administrator下运行echo. & pausenet stop osppsvctakeown /f
C:\Program Files\Common Files\Microsoft Shared\OFFICE14\Office Setup Controller\pkeyconfig-office.xrm-mstakeown /f C:\ProgramData\Microsoft\OfficeSoftwareProtectionPlatform\tokens.dattakeown /f C:\ProgramData···
2011年08月18日，星期四
有时候需要将Excel文件中的数据导入到数据库中，常用的做法是使用程序读取Excel,然后存入数据库；这里换一个方法，用Excel生成SQL语句，然后用这些SQL语句来更新数据库。
本文主要说明Excel如何使用VB宏构造需要的SQL语句，并生成文件。
1、先看看生成SQL的界面：
2、如何添加按钮：
依次打开：视图–工具栏–控件工具箱，选择“命令按钮”，自己画一个就行了；
依次打开：右键–属性，可以修改名称、样式等。
具体操作可以上网找找。
3、如何使用VB宏：
依次打开：工具–宏–安全性，看看你的Excel是否允许使用“宏”。
然后打开：工具–宏–Visual Basic 编辑器，双击左侧的“Sheet1”，然后在右侧的代码区域粘贴如下代码：
‘最大行数
Const MAX_NUM_ROW = 5000
‘导出文件路径所在单元格
Const PATH_OUTPUT_ROW = 3
Const PATH_OUTPUT_COL = 3
‘定义列常量
Const NAME_COL = 1
Const GENDER_COL = 2
Const PHONE_···
2010年06月30日，星期三
Private Sub Command1_Click()
Dim excel As Object ‘定义excel对象
Set excel = CreateObject(“Excel.application”) ‘创建excel对象
If Dir(App.Path + “\地震测线质量统计表.csv”) <> “” Then ‘判断是否存在“地震测线质量统计表.csv”文件，如果没有“地震测线质量统计表.csv”文件则提示当前目录没有文件，否则打开“地震测线质量统计表.csv”文件
Set excelbook = excel.Workbooks().Open(App.Path + “\地震测线质量统计表.csv”) ‘打开当前目录的“地震测线质量统计表.csv”文件
Else
MsgBox “当前目录没有“地震测线质量统计表.csv文件””
End If
If Dir(App.Path + “\地震测线质量统计表.xls”) <> “” Then ‘判断当前目录是否存在“\地震测线质量统计表.xls”文件如果有则提示更改文件名称，没有则进行cvs转excel
MsgBox “当前目录已有“地震测线质量统计表.xls文件，请更改文件名称。””
Else
ActiveWorkbook.SaveAs Fi···
2010年06月28日，星期一
Function Utf8ToUnicode(ByRef Utf() As Byte) As String
Dim lRet As Long
Dim lLength As Long
Dim lBufferSize As Long
lLength = UBound(Utf) – LBound(Utf) + 1
If lLength <= 0 Then Exit Function
lBufferSize = lLength * 2
Utf8ToUnicode = String$(lBufferSize, Chr(0))
lRet = MultiByteToWideChar(CP_UTF8, 0, VarPtr(Utf(0)), lLength, StrPtr(Utf8ToUnicode), lBufferSize)
If lRet <> 0 Then
Utf8ToUnicode = Left(Utf8ToUnicode, lRet)
End If
End Function
Function UnicodeToUtf8(ByVal UCS As String) As Byte()
Dim lLength As Long
Dim lBufferSize As Long
Dim lResult As Long
Dim abUTF8() As Byte
lLength = Len(UCS)
If lLength = 0 Then Exit Function
lBufferSize = lLength * 3 + 1
ReDim abUTF8(lBufferSize – 1)
lResult = WideCharToMultiByte(CP_UTF8, 0, StrPtr(UCS), lLength, abUTF8(0), lBufferS···
2010年06月28日，星期一
贾利冬（www.vbworld.ccoo.com）
做为一种简捷、系统的 Windows应用程序开发工具，Visual Basic 6 具有强大的数据处理功能，提供了多种数据访问方法，可以方便地存取Microsoft SQL Server、Oracle、XBase等多种数据库，被广泛应用于建立各种信息管理系统。但是，VB缺乏足够的、符合中文习惯的数据表格输出功能，虽然使用Crystal Report控件及 Crystal Reports程序可以输出报表，但操作起来很麻烦，中文处理能力也不理想。Excel作为Micorsoft公司的表格处理软件在表格方面有着强大的功能，我们可用VB5编写直接控制Excel操作的程序,方法是用VB的OLE自动化技术获取Excel 2000 的控制句柄,从而直接控制Excel 2000的一系列操作。
下面给出一个实例：
首先建立一个窗体（FORM1）在窗体中加入一个DATA控件和一按钮，
引用Microsoft Excel类型库:
从”工程”菜单中选择”引用”栏;
选择Microsoft Excel 9.0 Object Library;
选择”确定”。
然后在FORM的LOAD事件中加入：
P···
2010年06月28日，星期一
1、定义EXCEL对象变量
dim x as excel.application
2、VB中，启动EXCEL
set x=createobject(“excel.application”)
3、新建一个EXCEL工作簿
x.workbooks.add
4、选定工作表1
set xsheet=xbook.worksheets(1)
5、指定单元格，并赋值
xsheet.cell(1,1)=ret.fields(0)
6、指定EXCEL列宽
xsheet.column(1).columnwidth=10
7、RANGE（）函数，选定单元格区域
range(cells(1,1),cells(10,20))
8、设置EXCEL字体
xsheet.range(cells(1,1),cells(10,20)).font.name=”黑体”
9、设置EXCEL为粗体
xsheet.range(cells(1,1),cells(10,20)).fontbold=true
10、设置EXCEL表格边框
xsheet.range(cells(1,1),cells(10,20)).borders.linestyle=xlcontinuous
11、运行时，显示EXCEL或隐藏EXCEL
x.visible=true
12、保存工作簿
xbook save
13、退出EXCEL
x.quit
14、交还控制权给EXCEL
set x=nothing
15、打印EXCEL表
x.active.window.selectedsheets.printout copies=numcopies···
2010年06月19日，星期六
‘************************************************
‘**
‘** 写HTML文件的类（一些相关的操作）
‘**
‘************************************************
‘// 写HTML文件头
Public Function WriteHtmlHead(ByRef lngFileNum As Long, _
ByVal strTitle As String)
Print #lngFileNum, “<html>”
Print #lngFileNum, “<head>”
Print #lngFileNum, “<meta http-equiv=Content-Type content=text/html; charset=gb2312>”
Print #lngFileNum, “<title>” & strTitle & “</title>”
Call WriteCss(lngFileNum)
Print #lngFileNum, “</head>”
Call WriteSrcipt(lngFileNum)
Print #lngFileNum, “<body>”
Print #lngFileNum, “<p align=’center’><font color=’#1E77D3′>” & strTitle & “</font></p>”
Print ···