Worksheets

首页 > 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