首页 > TAG信息列表 > Worksheets

遍历多个工作簿中的工作表时需要注意的地方

Dim wb As Workbook, sht As Worksheet For Each wb In Workbooks Debug.Print wb.Name   For Each sht In Worksheets     If sht.Name = "good" Then       sht.Copy after:=Workbooks(1).Worksheets(Worksheets.Count)

test

Set wb = GetObject(obj) Set ws = wb.Worksheets(wb.Worksheets.Count) If wb.Worksheets.Count = 1 Then If InStr(fname, "CAN_") Then With ws.Cells

Matlab 实现对 Excel sheet 重命名 合并单元格

matlab对excel中的sheet重命名 1 e = actxserver('Excel.Application'); % open Activex server 2 ewb = e.Workbooks.Open(excelPath); % open file (enter full path!) 3 4 ewb

npoi 已删除的功能: /xl/styles.xml 部分的 格式 (样式)

    已删除的功能: /xl/styles.xml 部分的 格式 (样式) 已修复的记录: /xl/worksheets/sheet1.xml 部分的 单元格信息 已修复的记录: /xl/worksheets/sheet2.xml 部分的 单元格信息 已修复的记录: /xl/worksheets/sheet3.xml 部分的 单元格信息 已修复的记录: /xl/worksheets/s

搬家第25天-记录昨天的日期

前两天在qq群里看到有人问如何使用citectVBA取得昨天的日期,我看了一下CitectVBA资料,一个坏消息是没有日期加减计算的函数,一个好消息是excel里面丰富的日期时间函数可以计算昨天的日期,而且citect可以读取excel文件内容。当然可以在citectvba中通过if……then一大堆条件判断取得昨天

搬家第24天-Citect V7.4 citectVBA定义excel边框样式

前面的博客记录了在excel一个区域划全部的边框,其实还可以自定义左、右、上、下、斜边框,以及边框线等等。在citectVBA编辑器写以下代码: Sub ExcelBordersCnfg()Dim fileName As stringDim xlApp As ApplicationSet xlApp=CreateObject("excel.application")xlApp.Visible=Falsexlap

搬家第14天-173.Wincc V7.3 vbs 读取多个变量归档数据到excel

前面的一篇博客记录了如何读取多个变量归档数据到mshgrid控件,根据的是西门子官网的教学。有网友询问为什么他照着官网方法就是无法导出到excel。我自己也做了一遍,没有问题。本篇主要记录导出按钮的脚本。   前面的准备工作与上一篇一致,导出按钮的vbs脚本如下: Sub OnClick(ByVal I

VBA实例:高考分数投档指数分析(模块2.过程部分)

Sub 记录排序() Rows("5:5").Select Rows("5:230").Select ActiveWorkbook.Worksheets("备选院校").Sort.SortFields.Clear ActiveWorkbook.Worksheets("备选院校").Sort.SortFields.Add Key:=range("I5:I500"), _

VBA实例:高考分数投档指数分析(模块3.同步代码部分)

Sub 重点大学同步代码() Dim I% Dim rng As range, rng1 As range, rng2 As range For Each rng In ThisWorkbook.Worksheets("重点大学明细").range("C2", ThisWorkbook.Worksheets("重点大学明细").[C2].End(xlDown)) For Each rng1 In ThisWorkbo

VBA实战:电商仓储错拣逆还及退货上架(中)

接上讲-直接写功能实现 一、连接数据库可以直接参考我之前写的vba连接sql,只需要修改一下查询的sql语句就可以了; 此部分直接写在模块中,记得引用库;以下直接贴出: 1 '工具-引用--by OcarinaZhang 2 'Microsoft ActiveX Data Objects 2.8 Libary 3 'Microsoft ActiveX Data Object

利用VBA批量导入TXT或LOG文件,并完成筛选汇总

Sub 批量导入TXT或LOG并完成汇总() Dim Fs As Object, Ft As Object Set Fs = CreateObject("Scripting.FileSystemObject") filePath = ThisWorkbook.Path & "\" fileName = Dir(filePath & "*.log", vbNormal) Worksheets

Excel VBA(2) Workbooks and Worksheets

The Workbooks Collection Sub ActivateWorkbook1() Dim sFullName As String Dim sFileName As String Dim wkb As Workbook sFullName = “C:\Data\SalesData1.xlsx” sFileName = sGetFileName(sFullName) If bIsWorkbookOpen(sFileName) Then Set wkb = Workbooks

delphi dbgrid数据导出为excel

uses Excel2000,ComObj; procedure F_Form.Button1Click(Sender: TObject);var    myExcel:TExcel;    Int_i,Int_j,rowCount,columnCount:Integer;    ExcelId:Variant;begin  try      ExcelId:=CreateOleObject('Excel.Application');  except      on Exc

VBA——基础代码

ActiveCell.Font.Bold = True Application.ThisWorkbook.Sheets("Sheet1").Range("A1").Select Range("A1").Select Worksheets(1).Select Worksheets("Mysheet").Select Workbooks("MyData.xlsx").Worksheets("M

从多张工作簿(workbooks)中多张工作表(worksheets)同一位置提取数据

数据:N张工作簿,每张工作簿里又有M张工作表,每张工作表的同一位置Cells(2,16)有需要的数据,想讲这些数据汇总到一张新的表格。 新建一张“汇总.xlsm”,并打开,新建sub()过程; 依次打开工作簿; 源码如下: Public Sub Data() Dim i As Integer Dim j As Integer For i = 1 To Workbooks.Cou