- 博客(23)
- 收藏
- 关注
原创 Excel从报表到Word报表1,2,3
Excel从报表到Word报表准备好word文档,把bookmark设好,用以对应Table和chart的名字。Excel文档建好,同样,worksheets的命名和table命名相同。Chart生成,这个可以自动生成,当然也可以手动选择。这里就不在包含这个部分。Marco分为3个部分:A: 把Table数组导入到已经建立好的word文档B: 把Chart尺寸标准化C: 把cha...
2019-08-19 02:51:15 207
转载 The Windmills of Your Mind歌词
The Windmills of Your MindRound like a circle in a spiral, like a wheel within a wheelNever ending or beginning on an ever spinning reelLike a snowball down a mountain, or a carnival balloonLike a...
2019-08-18 19:58:18 312
转载 获取文件夹内所有文件名
获取文件夹内所有文件名http://club.excelhome.net/thread-1403375-1-1.htmlSub PFL() 'return file names under specific folderRange("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).ClearContentsDim fp, Fnam...
2019-08-14 14:42:12 483
原创 Excel学习推荐-博客
Excel 学习推荐博客最近需要用很多excel的功能,之前很多年用过一些全都各回各家了。翻遍网海,除了excelhome以及国内其他几个知名excel论坛内发现很多有用的代码,最值得推荐的就是以下的了。博主:sumitjain 慷慨大方的同意我转载他的内容,只要把原文链接放上就行。这么符合开源精神的网站和博客,推荐给大家,当然,也是博主有非常多各种vba的简单用法和针对性用法。http...
2019-08-13 14:37:21 162
转载 在excel中编辑word文件,插入图表
在excel中编辑word文件,插入图表Sub test()Dim wApp, currentpath, name, savepathDim i As Integername = Cells(1, "c").Text & ".docx" 'name sample reportcurrentpath = ThisWorkbook.Path & "\" ...
2019-08-13 06:23:31 200
翻译 Excel创建word并导入图片
Excel创建word并导入图片Sub CreateSheet()Dim WrdApp As Object, WrdDoc As ObjectDim LastRow As Integer, Cnt As Integer, FileNm As StringDim FS As Object, ObjSelection As ObjectOn Error GoTo ErFixSet W...
2019-08-13 05:57:41 297
翻译 Excel 多个工作表内的 Table输出到word
Excel 多个工作表内的 Table输出到word1.建立Excel Table Word Report.docx模板。2. 添加bookmark3. bookmark 命名为bookmark1,,,,5,设置和Table一样数目Option Base 1 'Force arrays to start at 1 instead of 0Sub ExcelTablesToWord()...
2019-08-13 03:12:45 348
翻译 Excel复制表格,文字,以及图标到word文档
Excel复制表格,文字,以及图标到word文档Sub ExportExcelToWord()'PURPOSE: Copy/Paste An Excel Table, Text, & Logo Image Into a New Word Document'NOTE: Must have Word Object Library Active in Order to Run _ (...
2019-08-13 02:49:18 217
翻译 Excel VBA 多重筛选
Excel VBA 多重筛选Sub FilterOnValues()'PURPOSE: Filter on specific valuesDim rng As RangeSet rng = ActiveSheet.Range("B7:D18")FilterField = WorksheetFunction.Match("Country", rng.Rows(1), 0)'Tur...
2019-08-13 02:40:29 2982
翻译 Excel工作表目录以及链接
Excel工作表目录以及链接自动获取工作表名称并链接,单列显示Sub TableOfContents_Create()'PURPOSE: Add a Table of Contents worksheets to easily navigate to any tab'SOURCE: www.TheSpreadsheetGuru.comDim sht As WorksheetDim C...
2019-08-13 02:34:04 288
原创 Excel VBA汇总后制图
分多个步骤进行数据的整理:A: 获取汇总数据到一个新的工作表Sub GetExcleWS() Dim path As String, filename As String Dim w As Workbook, ws As Workbook path = "C:\Users\fish.lol\Desktop\Data Collect" filename...
2019-08-13 02:26:45 1007
转载 如何批量导出工作表中的柱状图/折线图等图表为单独图片
如果图标有标题就输出标题;没有就输出序号Sub test() Dim path As String Dim co As ChartObject Dim ch As Chart path = ThisWorkbook.path & "\" For Each co In ActiveSheet.ChartObjects Set ch =...
2019-08-12 09:23:51 1176
翻译 VBA Code Looping Through Multiple Excel Tables
VBA Code Looping Through Multiple Excel Tables导出excel table和chart到word template.Option Base 1 'Force arrays to start at 1 instead of 0Sub ExcelTablesToWord()'PURPOSE: Copy/Paste An Excel Table I...
2019-08-12 09:15:25 134
原创 Excel生成Word文档
Excel 生成word报告查了很多资料,看看能否使用。Option ExplicitSub CreateBasicwordreport() Dim wdApp as object dim saveName as string set wdapp=createobject("work.application") with wdapp .documents.add with ....
2019-08-12 08:33:22 1677
转载 VBA-Excel: Delete Blank Rows from Excel Work Sheet
VBA-Excel: Delete Blank Rows from Excel Work Sheetometimes deleting the blank rows from you Excel sheet is a tedious task to do especially when your sheet contains lots of data, say 10k-15k rows and ...
2019-08-12 04:46:53 239
转载 VBA-Excel: Add Table and fill data to the Word document
VBA-Excel: Add Table and fill data to the Word documentVBA-Excel: Add Table and fill data to the Word documentTo Add Table and fill data to the Word document using Microsoft Excel, you need to follo...
2019-08-12 04:17:32 267
转载 VBA-Excel: Add/Insert a Image/Picture in Word Document
VBA-Excel: Add/Insert a Image/Picture in Word DocumentTo Add or Insert Images or Pictures in Microsoft Word Document using Microsoft Excel, you need to follow the steps below:Create the object of Mi...
2019-08-12 04:02:38 720
转载 VBA-Excel: Add/Insert multiple Images/Pictures from a folder in Word Document
VBA-Excel: Add/Insert multiple Images/Pictures from a folder in Word DocumentTo Add or Insert Multiple Images or Pictures in Microsoft Word Document using Microsoft Excel, you need to follow the step...
2019-08-12 03:59:41 220
转载 VBA-Excel: Working with Bookmarks- Insert text before Bookmark
VBA-Excel: Working with Bookmarks- Insert text before BookmarkFor inserting the text before the Bookmark in an existing Microsoft Word Document using Microsoft Excel, you need to follow the steps bel...
2019-08-12 03:54:47 304
转载 VBA-Excel: Working with Bookmarks- Insert text After Bookmark
https://excel-macro.tutorialhorizon.com/vba-excel-working-with-bookmarks-insert-text-after-bookmark/VBA-Excel: Working with Bookmarks- Insert text After BookmarkFor inserting the text after the Book...
2019-08-12 03:53:21 445
转载 VBA-Excel: Create and Save the Word document
VBA-Excel: Create and Save the Word documentFor creating and saving the Microsoft Word Document using Microsoft Excel, you need to follow the steps below:Create the object of Microsoft WordCreate a...
2019-08-12 03:45:42 195
转载 导出带图片的Excel报表
导出带图片的Excel报表先引用 Microsoft.Office.Tools.Excel.v4.0.Utilities.dll程序集,然后在后台页面引用using Excel = Microsoft.Office.Interop.Excel;Function getcolname(ByVal intcol As Long) intcol = intcol - 1 getcol...
2019-08-11 21:55:12 1555
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人