vba工作簿转txt

郭元惠4057怎么用VBA复制另外一个工作簿内容? -
边徐米18221892845 ______ Application.ScreenUpdating = False '关闭屏幕刷新 With ActiveWorkbook.Worksheets(＂Sheet1＂) '表示在当前文件的sheet1表中 Dim K As Workbook '定义工作簿变量K Set K = Workbooks.Open( ＂d:\1.xls＂) 'K表示 打开数据文件 y=2 do ...

郭元惠4057vba提取其他指定的工作薄中某个指定的工作表数据 -
边徐米18221892845 ______ Sub UsingTheFormula() Dim Temp As String Temp = ＂'＂ & ThisWorkbook.Path & ＂\[abc.xls]Sheet1'!＂ With Sheet1.Range(＂A1:C1＂) '取abc.xls工作簿Sheet1工作表(＂A1:C1＂)单元格数据 .FormulaR1C1 = ＂=＂ & Temp & ＂RC＂ .Range(＂A2:C2＂) = .Value ' 数据放到本工作簿Sheet1(＂A2:C2＂) 中 End With End Sub

郭元惠4057VBA读取指定工作簿里的一个sheet到我的excel file -
边徐米18221892845 ______ 用getobject方法可以隐藏打开的工作簿对象,实现看上去没有打开的过程 sub test() dim wb as workbook dim sht as worksheet set wb=getobject(＂C:\A.xls＂) set sht=wb.worksheets(1) sht.Cells.Copy ThisWorkbook.Worksheets(1).[A1] wb.close ...

郭元惠4057请教如何利用VBA实现将一个工作表复制到另一个工作簿中 -
边徐米18221892845 ______ 1、首先在桌面创建两个Excel文件,一个企划和一个市场,如图所示. 2、同时打开这两个Excel,这里注意了两个Excel必须同时处于打开状态,如图所示. 3、在市场部Excel中的【市场部1月】表单名称上点击右键,在出现的对话框中点击【移动或复制】,弹出【移动或复制工作表】对话框,如图所示. 4、在【移动或复制工作表】对话框中,工作簿选【企划】,位置选【移动到最后】,【建立副本】前面打勾,然后点击【确定】按钮,如图所示. 5、最后打开企划Excel文档,可以看到市场Excel文档的表单【市场部1月】已经被复制过来,如图所示.

郭元惠4057Excel VBA 数据导入后核对 -
边徐米18221892845 ______ Private Sub CommandButton1_Click() Dim d, c As Range, cc As Range, iRng As Range, r&, r1&, r2&, s, tmp Set d = CreateObject(＂Scripting.Dictionary＂) d(5) = CheckBox5.Value '隐藏 列,【L2:AP2】空值 d(7) = CheckBox7.Value '隐藏 行...

郭元惠4057请教,如何使用VBA将一个工作簿下的某个工作表中部分单元格数值赋值给另一个工作簿下的工作表中?谢谢! -
边徐米18221892845 ______ 还没有人帮忙吗?那我就来试试吧. 不知道楼主想要怎么样的结果,我这里就纯粹以自己的臆想来做啊在这里,我假...

郭元惠4057使用VBA将工作簿的数据按照E列的方式拆分到不同工作表中 -
边徐米18221892845 ______ Sub t() Application.ScreenUpdating = False On Error Resume Next With Worksheets(＂Sheet1＂) For i = 2 To .[E65536].End(xlUp).Row nam = .Cells(i, ＂E＂) If Worksheets(nam) Is Nothing Then Worksheets.Add(after:=Worksheets(Worksheets....

郭元惠4057如何用VBA提取工作薄中工作表的名称? -
边徐米18221892845 ______ SUB SHNAME() FOR EACH SH IN THISWORKBOOK.SHEETS i = i +1 CELLS(i,1) =SH.NAME NEXT END SUB 把代码复制到模块中,按F5运行一下,活动工作表A列就会列出所有工作表名了.

郭元惠4057使用VBA把EXCEL工作簿指定列的内容复制到另外的几个工作簿当中的指定列? -
边徐米18221892845 ______ 1 2 3 4 5 6 7 8 9 10 '6个工来作自簿的名2113字5261分别4102是16531~6 SubYgB() Dimi,arr for i=1 to 6 WorkBooks.Open(i) arr=ThisWorkBook.Sheets(1).Columns(i) ActiveSheet.Columns(1)=arr ActiveWorkBook.Close savechange:=True next i EndSub

郭元惠4057在VBA中表示当前工作簿,有Activeworkbook和Thisworkbook区别? -
边徐米18221892845 ______ thisworkbook指当前VBA代码所处的Workbook, Activeworkbook指当前活跃的Workbook 相同点:如果VBA代码只对本身工作簿进行操作,则一直是相同的 不同点:若VBA代码新建或打开了其它工作簿,则往往新建的或刚打开的是Activeworkbook,可以通过 “工作簿名.active”方法激活指定对象