fname = ActiveSheet.Name-------获取当前sheet页的名称        Sname = "" & fname & ""            start_coll = ActiveCell.Column----------获取选中单元格的所在位置:列        start_roww = ActiveCell.Row----------获取选中单元格的所在位置:行

原文:VBA读取word中的内容到Excel中 Public Sub Duqu()      Dim myFile As String     Dim docApp As Word.Application     Dim docRange As Word.Range     myFile = ThisWorkbook.Path & "\Word文档的名字"    '指定Word文档     Set docApp = New Word.Application     docApp

最近学习了对单元格式进行设置的两种方式,一个是把一个sheet设置成config的配置,之后把内容读进去:一个是在sheet中读取XML文件. 今天先说说怎么用config来读取数据. 把这一个sheet加入到整个workbook中,可以把输出表格的格式很清晰的显示出来,并且易于修改. config其实就是一个表格,我用的方式比较的简单,只是把内容设置进去,但是写的比较分散,写在一起的情况应该用split()来进行分割和读取. 举个简单的例子来说明: 目标sheet 目标区域 行高 Sheet1

利用vba脚本,使用Scripting.FileSystemObject对象可以实现对文本文件的操作,下面以一个朋友的实际例子为例将截获的字符串进行页面显示. Private Sub CommandButton3_Click() Dim fso Dim txtfile Dim msrt3 As String Dim ma3() As String Dim msrt1, ma1, msrt2, ma2, tempp, tempp2, i, a, j Set fso = CreateObject("

最近需要做一个一劳永逸的XML文档生成,给项目内部专用的,直接VBA方便了,才第一次用.现学现卖了....抽时间还是系统的学习下这方面的知识吧 输出到UTF-8编码的XML文档.并且换行符是Unix的\n换行符. Sub WriteToXml() Dim FilePath As String Dim ClientID As String Dim Name As String Dim LastCol As Long Dim LastRow As Long Dim fso As FileSystem

读取系统文档属性 Sub read()On Error Resume Nextrw = 1Worksheets(1).ActivateFor Each p In ActiveWorkbook.BuiltinDocumentProperties    Cells(rw, 1).Value = p.Name    Cells(rw, 2) = p.Value    rw = rw + 1NextEnd Sub 读取自定义文档属性 Sub Macro1() Cells(1, 2) = ActiveWo

核心代码就是Copy Destination. Sub copy_data() ' ' copy_data 宏 ' ' Dim fzjgs() As Variant Dim cities As Variant cities = Array("广州", "深圳", "珠海", "汕头", "佛山", "韶关", "湛江", "肇庆", "江

Const TR_LEVEL_MARK = "+"Const TR_COL_INDEX = "A"Const TR_COL_LEVEL = "E"Const TR_COL_NAME = "C"Const TR_COL_COUNT = "D"Const TR_COL_TREE_START = "F"Const TR_ROW_HEIGHT = 23Const TR_COL_LINE_WIDT

Sub OneTxt() '打开一个txt文件 Dim Filename As Variant, extLine&, mArr() As String Dim i%, j% ChDir ThisWorkbook.Path Filename = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "请选取档案", , MultiSelect:=True) j = 1 For k = 1 To U

Sub OneTxt() '打开一个txt文件 Dim Filename As Variant, extLine&, mArr() As String Dim i%, j%, txtpath As String Dim txtname As Variant ChDir ThisWorkbook.Path txtpath = "D:\Users\addy.zhao\Desktop\computers\" 'Filename = Application.GetOpenFilenam

1.安装数据库 2.创建数据源 Private Sub Worksheet_Change(ByVal Target As Range) Then Call mySQL End If End Sub Public Function mySQL() strconnt = "" Set connt = CreateObject("ADODB.Connection") Dim sevip, Db, user, pwd As String '设服务器地址 所连数据,及登录用户

Option Compare Database Private Sub Command0_Click() Dim db Dim rs As Recordset Dim str As String Set db = CurrentDb Set rs = db.OpenRecordset("select * From [test]") rs.MoveFirst str = "all date:" If Not rs.EOF Then Do While Not rs.EO

实验成功的: ExcelApp.Workbooks.Open(文件路径,,,'密码') 这里很坑,搜了别人的博客,下面这个方法试了N次,都没用... ExcelApp.Workbooks.Open(文件路径,Password='密码.') 可能是我的有毒吧...

假设一个名叫"模板"的excel表格里有四个sheet,名字分别是['平台', '制冷', '洗衣机', '空调'] 1.读取 from openpyxl import load_workbook namelists=['平台', '制冷', '洗衣机', '空调']#4个sheet的名字,也可以通过pd来获取 wb = load_workbook("模板.xlsx")#使用openpyxl读取xlsx文件,创建workbook 显示有多少张sheet print(

在工作中,经常会碰到从一堆腐朽的source中按照一个列表去筛选出来现在还要用的source文件. 这个如果用vba来实现的话,会节省大量的时间,而且不会出错. 前提说明: 将想要复制的文件名列表放在第一sheet的第一列,然后执行程序 首先选择源目录和目标目录, 然后会从源目录中查找文件,将存在的文件自动复制的目标目录中, 不存在的文件,记录在第二列里. Sub fileFilter() Dim folderOld As String Dim folderNew As String Dim f

import java.io.FileInputStream; import java.io.FileNotFoundException; import java.io.InputStream; import java.text.SimpleDateFormat; import java.util.ArrayList; import java.util.List; import java.util.UUID; import org.apache.poi.ss.usermodel.Cell; im

<?php set_time_limit(0); $dir = dirname(__FILE__);//当前脚本所在路径 require $dir."/PHPExcel_1.8.0/Classes/PHPExcel.php"; //$objPHPExcel = new PHPExcel();//实例化PHPExcel类 $filename = $dir."/20151016091328_95039.xls"; $objPHPExcel=PHPExcel_IOF

NPOI 是 POI 项目的 .NET 版本.POI是一个开源的Java读写Excel.WORD等微软OLE2组件文档的项目.  一.下载引用 去NPOI官网http://npoi.codeplex.com/下载需要引用的dll,即:NPOI.dll,NPOI.OOXML.dll,NPOI.OpenXml4Net.dll,ICSharpCode.SharpZipLib.dll(office2007版需要此dll). 二.Excel转datatable类 excel数据: Excel转datata

Apache POI是Apache软件基金会的开放源码函式库,POI提供API给Java程序对Microsoft Office格式档案读和写的功能. HSSF - 提供读写Microsoft Excel格式档案的功能. XSSF - 提供读写Microsoft OOXML格式档案的功能.      以下是项目工程结构图: 使用POI解析EXCEL文件需要用到POI相关的jar包,这些jar包可以在apache官网上去下载:http://poi.apache.org/download.html:

C#读取Excel几种方法的体会 转载地址:http://developer.51cto.com/art/201302/380622.htm (1) OleDb: 用这种方法读取Excel速度还是非常的快的,但这种方式读取数据的时候不太灵活,不过可以在 DataTable 中对数据进行一些删减修改 这种方式将Excel作为一个数据源,直接用Sql语句获取数据了.所以读取之前要知道此次要读取的Sheet(当然也可以用序号,类似dt.Row[0][0].这样倒是不需要知道Sheet)? if (fi

(1) OleDb: 用这种方法读取Excel速度还是非常的快的,但这种方式读取数据的时候不太灵活,不过可以在 DataTable 中对数据进行一些删减修改 这种方式将Excel作为一个数据源,直接用Sql语句获取数据了.所以读取之前要知道此次要读取的Sheet(当然也可以用序号,类似dt.Row[0][0].这样倒是不需要知道Sheet) ? if (fileType == ".xls")    connStr = "Provider=Microsoft.Jet.OLEDB