002 Excel VBA
低调的嚣张的程序员
你好我好大家好!
展开
-
知道SELECT语句怎么把查询到的数据输出到Excel中
Public Function getTblExcel(strExcel As String) On Error GoTo Create '-----------定义Excel的对象-------------- Dim xlApp As Excel.Application '引用了 Microsoft Excel 14.0就会出现这个对象 Dim xlWbk As E原创 2017-06-06 22:53:20 · 2849 阅读 · 0 评论 -
获取文件夹下所有的文件
Sub 遍历文件夹()'Columns(1).Delete On Error Resume NextDim f As StringDim file() As StringDim i, k, xx = 1i = 1: k = 1ReDim file(1 To i)file(1) = InputBox("请输入要查找的文件夹:") & "\"Do Until i > k f = ...转载 2018-04-11 13:45:07 · 363 阅读 · 0 评论 -
对于在查询中直接引用Excel文件作为数据源功能的寻根问底 [Excel 8.0;]
时 间:2016-12-28 17:33:46作 者:红尘如烟 ID:10768 城市:上海摘 要:关于 SELECT * FROM [Sheet1$] IN 'C:\test.xls'[Excel 8.0;]正 文:在Access查询中,我们可以在不使用链接表的情况下,直接将某个Excel文件作为数据源进行查询,SQL语句为:Select * FROM [Sh转载 2018-02-05 10:46:03 · 1664 阅读 · 0 评论 -
怎样将选中的单元格中的内容合并为一条字符串(string)
Sub mera() Dim rng As Range, rngadd As Range Dim str As String Set rng = ActiveSheet.Range("L9:L15") rng.Select For Each rngadd In rng str = str & rngadd.Value Next rnga原创 2017-06-13 10:44:32 · 535 阅读 · 0 评论 -
取订单号的程序
Option ExplicitSub 仓库获取客户代码() If Worksheets("产品入库序时簿").Range("G1").Value = "收货仓库" Then Columns("G:G").Select Selection.Insert End If getSONo "产品入库序时簿", "F", 2, "G", 2End Sub原创 2017-06-24 17:31:51 · 532 阅读 · 0 评论 -
怎样在RCRC中引用变量
ActiveCell.FormulaR1C1 = "=SUM(R[" & aaa & "]C:R[" & bbb & "]C)" Range("C7").Selectaaa和bbb就是两个变量!~转载 2017-06-09 14:34:44 · 529 阅读 · 0 评论 -
Excel表格的数据分拣
Public Function FenLei()' MsgBox "下面将把成绩表分按班级分到各个工作表中!" Dim i As Long, bj As String, rng As Range, sht As Worksheet Set sht = Worksheets("总表") i = 2 bj = sht.Cells(i, "B").Value原创 2017-06-09 09:30:10 · 1486 阅读 · 0 评论 -
怎样根据某一列内容合并单元格——针对数据库的表头和表体
Public Function mergePeicangOrderNo(strRange As String, intRange As Integer) Dim rng As Range Dim cellRange As Range Dim i As Integer Dim j As Integer Dim k As Integer Dim n As原创 2017-06-09 09:28:58 · 1637 阅读 · 0 评论 -
怎样根据单列内容新建工作表
Public Function ShtAdd() MsgBox "下面将根据C列的班级名新建不同的工作表。" Dim i As Integer, sht As Worksheet, shtC As Worksheet, rng As Range i = 2 '第一条记录的行号为2 Set sht = W原创 2017-06-09 09:27:26 · 476 阅读 · 0 评论 -
VBA中Format使用方法 集合
Format用法详解 Format$(Now,"EEOA")只要这么一句~~~~~就可以得到“ 二○○六年五月二十六日”亏我还得写得那么多。。。所以对FORMAT函数进行研究,参照HELP文件,把一些用法写了下来。现拿给大家共享。。。---------------------------------Format[$] ( expr [ , fmt ] )format 返回变体型f...转载 2018-08-07 16:22:07 · 38128 阅读 · 1 评论