python如何将多个excel中的sheets复制到一个指定excel中 5C

简而言之就是将分布在不同excel文件中的sheet集中在一个excel文件中。例如有10个excel文件,每个文件中有2个sheet,复制到一个excel文件中有20个sheet。
PS:要把原表格样式也复制进去,即样式格式不变。目前能实现的复制只能将内容复制,样式复制不了。

#这样每次复制会覆盖之前复制的内容,想求问有什么好的解决办法?
import xlrd
import openpyxl
import os
from xlutils.copy import copy
rb = xlrd.open_workbook('d:/test/0.xls', formatting_info=True)
wb = copy(rb)

rb1 = xlrd.open_workbook('d:/test/1.xls', formatting_info=True)
wb2 = copy(rb1)

wb.save('d:/11.xls')
wb2.save('d:/11.xls')

1个回答

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
使用VB.NET如何从一个excel中复制多行到另一个excel的指定位置呢?

以下是我自己的vb.net的部分主要逻辑代码 ``` '删除旧excel的行 AppWokBookOld.Sheets(1).Rows("5:6").Delete ’复制新excel的行 AppWokBookNew.Sheets(1).Rows("5:8").Copy '粘贴新excel的行到旧excel的行 AppWokBookOld.Sheets(1).Rows("5").PasteSpecial ``` 通过以上操作,删除和复制都没有问题,粘贴操作也没有报错,但是运行后,复制过来的不是excel的单元格,而是一个单元格的图片,双击这个图片会跳转到新excel。 ![图片说明](https://img-ask.csdn.net/upload/201910/14/1571032453_589072.png) 不知道怎么回事,还有其他方法吗?

vb.net如何把一个excel的某部分复制粘贴到另一个excel的某个位置,包括插入的线,图形和规则等等

**两个EXCEL,我想复制第一个excel的某部分,粘贴到第二个excel的某个位置,包括插入的线,图形,和数据规则复制过来全部都一样** 以下是我的逻辑代码片 ``` '删除旧excel的行 AppWokBookOld.Sheets(1).Rows("5:6").Delete ’复制新excel的行 AppWokBookNew.Sheets(1).Rows("5:8").Copy '粘贴新excel的行到旧excel的行 AppWokBookOld.Sheets(1).Rows("5").PasteSpecial(Microsoft.Office.Interop.Excel.XlPasteType.xlPasteFormats) ``` 通过以上操作,可以完成复制,但是插入的线,图形,和输入规则都没有复制过来,我试过修改PasteSpecial方法的参数为xlPasteAll,xlPasteFormulas,结果粘贴过来是个图片 ![图片说明](https://img-ask.csdn.net/upload/201910/22/1571733761_859440.png) 然后修改参数为xlPasteColumnWidths,xlPasteComments,xlPasteFormats的时候,插入的图形,线,和输入规则都没有复制过来,只是把简单的表格复制过来了, 请问还有其他方式吗?

python在已经读取玩excel后,如何把表中各项数据赋值给指定函数变量

# coding=utf-8 import xlrd data = xlrd.open_workbook(r'D:\tesrt\s_z_score\data_set.xlsx','a') table = data.sheets()[0] number = table.row(1)[0].value 用上面的方式已经将数据读入python,如何将所读的数据赋值给后面的函数变量?而且要一一对应。

vb.net 读取多个excel表中的数据填到新建的excel表中,

Option Explicit On Module Module1 Public Function MergeXlsFile(ByVal strPath As String, Optional ByVal SheetCount As Byte = 1) As Boolean Dim i As Integer Dim strSrcFile As String Dim nRows As Long, nCols As Long, nSheets As Byte, nNewRows() As Integer Dim xlApp As Object, xlSrcBook As Object, xlNewBook As Object, xlSheet As Object, xlRange As Object Dim numarr As System.Array On Error Resume Next If Right(strPath, 1) <> "\" Then strPath = strPath & "\" '如果需要合并文件中的工作表数量小于1则退出 '如果需要合并文件中的工作表数量小于1则退出 If SheetCount < 1 Then Exit Function '删除掉该路径下原来的合并文件 If Dir(strPath & "合并后的文件.xls") <> "" Then Kill(strPath & "合并后的文件.xls") '获得第1个XLS文件 strSrcFile = Dir(strPath & "*.xls") '如果文件不存在则退出 If Len(strSrcFile) = 0 Then Exit Function '创建一个Excel实例 xlApp = CreateObject("Excel.Application") '新建一个工作簿 xlNewBook = xlApp.Workbooks.Add '调整新建工作簿里工作表的数量 ReDim nNewRows(0 To SheetCount) For i = 0 To SheetCount - xlNewBook.Sheets.Count xlNewBook.Sheets.Add() xlNewBook.Sheets(xlNewBook.Sheets.Count) Next '循环查找当前路径下的所有XLS文件 Do '打开找到的XLS文件 xlSrcBook = xlApp.Workbooks.Open(strPath & strSrcFile) '循环复制源XLS文件里的工作表 nSheets = IIf(xlSrcBook.Sheets.Count < SheetCount, xlSrcBook.Sheets.Count, SheetCount) For i = 1 To nSheets xlSheet = xlSrcBook.Sheets(i) '获得源XLS文件中第i个工作表实际数据的行列数 nRows = xlSheet.range("i2").value nCols = xlSheet.UsedRange.Columns.Count '使用范围对象粘贴源XLS文件数据到合并结果文件中 xlRange = xlSheet.Range(xlSheet.Cells(7, 1), xlSheet.Cells(nRows + 7, nCols)).ToString xlRange.Select() xlRange.Copy() xlNewBook.Sheets(i).Cells(nNewRows(i) + 1, 3).PasteSpecial(&HFFFFEFF8) '保存合并结果文件中第i个工作表的行数 nNewRows(i) = xlNewBook.Sheets(1).UsedRange.Rows.Count Next '关闭打开的源XLS文件 xlSrcBook.close() '继续查找下一个XLS文件 strSrcFile = Dir() Loop Until Len(strSrcFile) = 0 '保存并关闭合并结果文件 xlNewBook.SaveAs(strPath & "合并后的文件.xls") xlNewBook.Close() '退出Excel实例 xlApp.quit() '释放资源 Erase nNewRows xlRange = Nothing xlSheet = Nothing xlNewBook = Nothing xlSrcBook = Nothing If Err.Number = 0 Then MergeXlsFile = True End Function End Module button 调用模块。复制的功能实现了。就是因为原单元格中有公式。可是复制过来统一列退后两行。但是公式还是制定原来的单元格,读取的值就变不一样了。该怎么办能把之前的单元格只读出value。然后填入。

python中使用pandas多次写入同一个sheet(保留原内容)可以实现吗?

重点是同一个sheet!!! 使用ExcelWriter多次写入同一个excel的多个sheet(保留原内容),这个已经知道如何实现

用Python读取Google Sheets中数据,请求访问失败的原因?

用Python尝试读取Google Sheets中的数据,总是报错如下 ``` import gspread from oauth2client.service_account import ServiceAccountCredentials # The ID and range of a sample spreadsheet. #SAMPLE_SPREADSHEET_ID = '1BxiMVs0XRA5nFMdKvBdBZjgmUUqptlbs74OgvE2upms' #SAMPLE_RANGE_NAME = 'Class Data!A2:E' scope = ["https://spreadsheets.google.com/feeds",'https://www.googleapis.com/auth/spreadsheets',"https://www.googleapis.com/auth/drive.file","https://www.googleapis.com/auth/drive"] creds = ServiceAccountCredentials.from_json_keyfile_name("./creds.json", scope) client = gspread.authorize(creds) sheet = client.open("tutorial").sheet1 # Open the spreadhseet data = sheet.get_all_records() # Get a list of all records row = sheet.row_values(3) # Get a specific row col = sheet.col_values(3) # Get a specific column cell = sheet.cell(1,2).value # Get the value of a specific cell insertRow = ["happy", 5, "red", "blue"] #sheet.add_rows(insertRow, 4) # Insert the list as a row at index 4 sheet.insert_row(insertRow, 4) # Insert the list as a row at index 4 sheet.update_cell(2,2, "CHANGED") # Update one cell numRows = sheet.row_count # Get the number of rows in the sheet ``` 已经确保Python文件和json文件在同一个目录下,还是报错如下

利用python中的xlwings模块操作excel中发生的报错???

点击表单按钮后,python报错为(如下图): ![图片说明](https://img-ask.csdn.net/upload/201812/27/1545878567_4096.png) 一、宏: Sub hi() runpython ("from xlw import say_hi;say_hi()") End Sub 二、python: import xlwings as xlw def say_hi(): wb = xlw.Book.caller() sht = wb.sheets[0] sht.range('A1').value = 'Hello, world'

将一个excel表上的内容筛选后,粘贴到多个EXCEL表格中,运行总是出现空白表是怎么回事?

![图片说明](https://img-ask.csdn.net/upload/201908/21/1566355850_507500.jpg) 1. 将一个excel表上的内容筛选后,粘贴到多个EXCEL表格中,运行总是出现“运行时错误,下标越界”? 2. 要实现的功能是将不同成本中心的固定资产筛选出来,把内容放到一个个excel表格中。![图片说明](https://img-ask.csdn.net/upload/201908/21/1566353927_728268.jpg) 3. Sub 拆分() Application.ScreenUpdating = False mc = "Fixed Asset List of 固定资产明细表" Set Rng = ThisWorkbook.Sheets("数据源").Rows(1) arr = ThisWorkbook.Sheets("数据源").[a1].CurrentRegion ReDim brr(1 To UBound(arr), 1 To UBound(arr, 13)) ReDim crr(1 To UBound(arr), 1 To UBound(arr, 13)) ReDim drr(1 To UBound(arr), 1 To UBound(arr, 13)) ReDim Err(1 To UBound(arr), 1 To UBound(arr, 13)) ReDim frr(1 To UBound(arr), 1 To UBound(arr, 13)) For i = 2 To UBound(arr) If Trim(arr(i, 7)) = "10401" Then n = n + 1 For j = 1 To UBound(arr, 13) brr(n, j) = arr(i, j) Next j End If Next i For i = 2 To UBound(arr) If Trim(arr(i, 7)) = "20506" Then m = m + 1 For j = 1 To UBound(arr, 13) crr(m, j) = arr(i, j) Next j End If Next i For i = 2 To UBound(arr) If Trim(arr(i, 7)) = "20701" Then p = p + 1 For j = 1 To UBound(arr, 13) crr(p, j) = arr(i, j) Next j End If Next i For i = 2 To UBound(arr) If Trim(arr(i, 7)) = "20705" Then q = q + 1 For j = 1 To UBound(arr, 13) crr(q, j) = arr(i, j) Next j End If Next i For i = 2 To UBound(arr) If Trim(arr(i, 7)) = "20601" Then r = r + 1 For j = 1 To UBound(arr, 13) crr(r, j) = arr(i, j) Next j End If Next i Application.SheetsInNewWorkbook = 1 If n <> "" Then Set wb = Workbooks.Add With wb.Worksheets(1) Rng.Copy .[a1] .[a2].Resize(n, UBound(brr, 13)) = brr End With wb.SaveAs Filename:=ThisWorkbook.Path & "\" & "10401_" & mc wb.Close End If If m <> "" Then Set wb = Workbooks.Add With wb.Worksheets(1) Rng.Copy .[a1] .[a2].Resize(m, UBound(crr, 13)) = crr End With wb.SaveAs Filename:=ThisWorkbook.Path & "\" & "20506" & mc wb.Close End If If m <> "" Then Set wb = Workbooks.Add With wb.Worksheets(1) Rng.Copy .[a1] .[a2].Resize(m, UBound(drr, 13)) = drr End With wb.SaveAs Filename:=ThisWorkbook.Path & "\" & "20701" & mc wb.Close End If If m <> "" Then Set wb = Workbooks.Add With wb.Worksheets(1) Rng.Copy .[a1] .[a2].Resize(m, UBound(Err, 13)) = Err End With wb.SaveAs Filename:=ThisWorkbook.Path & "\" & "20705" & mc wb.Close End If If m <> "" Then Set wb = Workbooks.Add With wb.Worksheets(1) Rng.Copy .[a1] .[a2].Resize(m, UBound(frr, 13)) = frr End With wb.SaveAs Filename:=ThisWorkbook.Path & "\" & "20601" & mc wb.Close End If Application.ScreenUpdating = True MsgBox "ok!" End Sub ``` ``` 4.这是从网上找的答案,被我修改过的结果。 5. 下标越界截图

打印文件夹下所有工作簿中指定的工作表

现已拥有2003版代码,但由于即03版excel之后,微软取消了vba的filesearch功能,不知为何,请问有高手可以用别的代码代替此功能吗? 可以在excel2010中使用的代码 有人会用filesystemobject ,或者其他代码能达到效果就可以~ 谢谢~ Sub printer1() Dim fd As FileDialog, oFile As Object Dim Fso, myFolder As Object, myFiles As Object Dim fn$ '定义一些要用到的变量,分别获取文件夹名,文件名 Set Fso = CreateObject("Scripting.FileSystemObject") '创建文件操作 Set fd = Application.FileDialog(msoFileDialogFolderPicker) '用对话框获取文件夹路径 If fd.Show <> -1 Then Exit Sub '如果在文件夹选择时点"取消"则退出过程 Set myFolder = Fso.GetFolder(fd.InitialFileName) '将文件夹路径赋值到变量 With Application.FileSearch .LookIn = myFolder '设置文件的搜索路径 .FileType = msoFileTypeExcelWorkbooks '设置要搜索的文件类型为工作簿 If .Execute > 0 Then '如果找到一个或多个文件 For i = 1 To .FoundFiles.Count '设置打开工作簙的循环 Workbooks.Open Filename:=.FoundFiles(i) '打开找到的每一个工作簙 ol = 1 Sheets("评级审批表").PrintOut Copies:=ol '打印指定工作表 ActiveWorkbook.Save '保存当前工作簙 ActiveWorkbook.Close '关闭当前工作簙 Next i '打开下一个工作簙 Else MsgBox "没有找到任何工作簿文件" '提示没有找到任何工作簿文件 End If End With End Sub 另

VB.net调用Excel两个问题

``` Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim i As Integer xlApp = CreateObject("Excel.Application") '创建EXCEL应用类 xlApp.Visible = True '设置EXCEL可见 xlBook = xlApp.Workbooks.Open("E:\bb.xlsm") '打开EXCEL工作簿 xlSheet = xlBook.Worksheets(1) '打开EXCEL工作表 xlSheet.Activate() '激活工作表xlSheet.Activate() i = 1 Do Until xlSheet.Cells(i, 1) = "" i = i + 1 Loop xlSheet.Cells(i, 1) = TextBox1.Text '给单元格1行驶列赋值xlSheet.Cells(1, 1) & xlBook.RunAutoMacros(Excel.XlRunAutoMacro.xlAutoOpen) '运行EXCEL中的启动宏 xlBook.Save() xlBook.RunAutoMacros(Excel.XlRunAutoMacro.xlAutoClose) '执行EXCEL关闭宏 xlBook.Close(True) '关闭EXCEL工作簿 xlApp.Save() xlApp.Quit() '关闭EXCEL xlSheet = Nothing xlBook = Nothing xlApp = Nothing '释放EXCEL对象 MsgBox("保存成功") End Sub! [图片说明](https://img-ask.csdn.net/upload/201905/05/1557039717_488488.png)![图片说明](https://img-ask.csdn.net/upload/201905/05/1557039769_163946.png) ```

关于vb.net读取excel的问题

vs2015 Microsoft Excel 16.0 Object Library MyExcel = New Microsoft.Office.Interop.Excel.Application MyExcel.Visible = False ExcWorksbook = MyExcel.Workbooks.Open("D:\Info.xlsx") ExcSheet = ExcWorksbook.Sheets(1) ExcWorksbook.Close() MyExcel.Quit() 其中 ExcSheet = ExcWorksbook.Sheets(1) ,这一句总是报错,无论是写sheet(1)还是sheets("Sheet1")。 错误提示是:“System.InvalidCastException”类型的未经处理的异常在 公式单小助手.exe 中发生 其他信息: 无法将类型为“System.__ComObject”的 COM 对象强制转换为接口类型“Microsoft.Office.Interop.Excel.Sheets”。此操作失败的原因是对 IID 为“{000208D7-0000-0000-C000-000000000046}”的接口的 COM 组件调用 QueryInterface 因以下错误而失败: 不支持此接口 (异常来自 HRESULT:0x80004002 (E_NOINTERFACE))。 请问如何解决,谢谢 另外,看到网上的vb.net 读取excel是可以用sheet(x).cells(x,y)这种写法的,但是我在sheet(x)后面打上“.”以后,后面的提示并没有cells,这是为什么呢? 谢谢

vb操作excel内容。在excel表格中搜索B列内容

vb读取excel内容。我想获取的是这样的。在excel表格中搜索B列内容为“32KP”对应的E列的内容比如B17为“32KP”则读取E17的内容到text1中。 我是这样读取表格的 Dim ExcelApp, oBook, a, c Set ExcelApp = CreateObject("Excel.Application") Set oBook = ExcelApp.Workbooks.Open("d:\1.xls", missing, True) a = Text6 '表格名 Set xlsheet = oBook.Sheets(a)

如何合并多个Excel2003表

我在网上找了个代码运行,发现不对,刚开始看,不懂函数的作用什么的,有人能给解释或者给个能运行的代码么?谢谢了! Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath & "\" & "*.xls") AWbName = ActiveWorkbook.Name Num = 0 Do While MyName <> "" If MyName <> AWbName Then Set Wb = Workbooks.Open(MyPath & "\" & MyName) Num = Num + 1 With Workbooks(1).ActiveSheet .Cells(Range("B65536").End(xlUp).Row, 1) = Left(MyName, Len(MyName) - 4) 'For G = 1 To Sheets.Count Wb.Sheets(1).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1) 'Next WbN = WbN & Chr(13) & Wb.Name Wb.Close False End With End If MyName = Dir Loop Range("B1").Select Application.ScreenUpdating = True MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示" End Sub

python中定义了两个函数,但报错其中一个未定义?

``` class myspider ( base.spiderFrame ): def spider(max_num,url,road): for page_num in range(1,max_num): html='url'+'&page'+'=%d'%(page_num) page=urllib.request.urlopen(html) soup=BeautifulSoup(page,"lxml") …… def click_event( self, event ): url=self.urltxt.GetValue() max_num=self.page_num.GetValue() road=self.roadtxt.GetPath() spider(max_num,url,road) ``` 代码如上,一直提示spider这个函数未定义?

VBA读取Excel单元格数据,处理后再写入该表中的其他位置,怎么实现?

## # 用Excel的VBA能够从Excel中读取数据,也能够实现数据写入到单元格中,但是怎么实现在一个Function中实现先读取数据,再写到表的其他单元格呢?**__ Public Function test1() As String Dim strArray() As Variant Dim wk_data As Variant Set wk_data = Sheets("Sheet1") strArray = wk_data.Range("A47:B48").Value 出现错误!! wk_data.Range("G43").Resize(UBound(strArray, 1), UBound(strArray, 2)).Value = strArray test1 = "true" End Function

js读取excel中某几列单元格中的数值报错

我想用js读取本地excel中B,C两列的数值 ![图片说明](https://img-ask.csdn.net/upload/202002/22/1582358106_217856.png) 浏览器打开测试的代码,我把读取出来的值赋给k和j,打印出来,可以显示数值,但最后总会报错,想问下大家,这个报错得怎么把它消除掉 ![图片说明](https://img-ask.csdn.net/upload/202002/22/1582358939_394375.png) 下面是我测试的代码 ``` <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <meta name="viewport" content="width=device-width, initial-scale=1.0"> <meta http-equiv="X-UA-Compatible" content="ie=edge"> <title>Document</title> <input type="file" name="file1" id="1" onchange="readWorkbookFromLocalFile(this)" style="display: none" /> <input type="button" value="添加文件" onclick="document.getElementById(1).click();" /> </head> <body> <script type="text/javascript" src="../xlsx.core.min.js"></script> <script> function readWorkbookFromLocalFile(obj) { var f = obj.files[0]; var reader = new FileReader(); reader.onload = function (e) { var data = e.target.result; var workbook = XLSX.read(data, { type: 'binary' }); var sheetNames = workbook.SheetNames; // 工作表名称集合 sheetNames.forEach(name => { var worksheet = workbook.Sheets[name]; // 只能通过工作表名称来获取指定工作表 // v代表读取单元格的原始值 for (i = 3; i < 20; i++) { var k = worksheet['B' + i].v; var j = worksheet['C' + i].v; console.log(k, j); } }); }; reader.readAsBinaryString(f); //console.log(workbook); } </script> </body> </html> ```

将Excel工作表字段映射到我预先定义的数据库字段php

<div class="post-text" itemprop="text"> <p>I am having a number of different excel sheets at my end. I need to put their data in the database. There are some predefined fields in database (country,code,start date, end date) which I need to fetch from excel and need to put in the database. </p> <p><strong>Tried so far :</strong> I have fetched the data and putting it in the database when i know the field names of excel sheets. For example if excel is also having <strong>(country,code,start,end)</strong> then my code is taking and putting in the data base exactly</p> <p><strong>Problem</strong> I want this to be automatic upload to database in case the excel fields are not same as i using in my code. Explaining furhter , suppose in my excel fields are <strong>(location,location code, starting date, end date)</strong>. then I also want my program to extract the data from proper field.</p> <p>I want some kind of mapping utility at my panel so that admin can map the fields once a new excel sheet with new fields are uploaded. so that it maps and fetch the data from proper columns of excel sheets.</p> <p>Please suggest how to start it with. </p> <p>Thanks,</p> </div>

导入excel的时候excel中有一个单元格是空的话后边的就导入不进数据库了该在哪加判断?

private List<Map<String, Object>> readExcelValue(Workbook wb) { // 得到第一个shell Sheet sheet = wb.getSheetAt(0); // 得到Excel的行数 this.totalRows = sheet.getPhysicalNumberOfRows(); // 得到Excel的列数(前提是有行数) if (totalRows > 1 && sheet.getRow(0) != null) { this.totalCells = sheet.getRow(0).getPhysicalNumberOfCells(); } List<Map<String, Object>> userList = new ArrayList<Map<String, Object>>(); // 循环Excel行数 for (int r = 1; r < totalRows; r++) { Row row = sheet.getRow(r); if (row == null) { continue; } // 循环Excel的列 Map<String, Object> map = new HashMap<String, Object>(); for (int c = 0; c < this.totalCells; c++) { Cell cell = row.getCell(c); if (null != cell) { if (c == 0) { // 如果是纯数字,比如你写的是25,cell.getNumericCellValue()获得是25.0,通过截取字符串去掉.0获得25 if (cell.getCellType() == HSSFCell.CELL_TYPE_NUMERIC) { String name = String.valueOf(cell.getNumericCellValue()); map.put("name", name.substring(0, name.length() - 2 > 0 ? name.length() - 2 : 1));// 名称 } else { map.put("name", cell.getStringCellValue());// 名称 } } else if (c == 1) { if (cell.getCellType() == HSSFCell.CELL_TYPE_NUMERIC) { String sex = String.valueOf(cell.getNumericCellValue()); map.put("sex", sex.substring(0, sex.length() - 2 > 0 ? sex.length() - 2 : 1));// 性别 } else { map.put("sex", cell.getStringCellValue());// 性别 } } else if (c == 2) { if (cell.getCellType() == HSSFCell.CELL_TYPE_NUMERIC) { String age = String.valueOf(cell.getNumericCellValue()); map.put("age", age.substring(0, age.length() - 2 > 0 ? age.length() - 2 : 1));// 年龄 } else { map.put("age", cell.getStringCellValue());// 年龄 } } else if (c == 3) { if (cell.getCellType() == HSSFCell.CELL_TYPE_NUMERIC) { String age = String.valueOf(cell.getNumericCellValue()); map.put("sg", age.substring(0, age.length() - 2 > 0 ? age.length() - 2 : 1));// 身高 } else { map.put("sg", cell.getStringCellValue());// 身高 } } } } // 添加到list userList.add(map); } return userList; }

关于VBS删除Excel的Sheet问题

如题,代码如下,执行后3个sheet原封不动的在那儿并未成功删除掉第一个sheet, 求助,帮忙寻找解决方法 ``` '?获得Sheet的值.查看获得Sheet值得方法 ' '========================================= 'myString = "CreateExcel" Dim oExcel,oBook,oSheet Dim filePath Dim getValue,getValue2 Dim fso,isExist,tempFolder filePath = "C:\Users\L.H\Desktop\VBS\excel.xlsx" '判断即将保存的文件是否已经存在于该目录,若存在,则删除该文件 Set fso = CreateObject("Scripting.FileSystemObject") isExist = fso.FileExists(filePath) If isExist Then fso.DeleteFile(filePath) End If '建立新的Excel引用程序 Set oExcel = CreateObject("Excel.Application") oExcel.caption="Test" '建立新的工作空间 Set oBook = oExcel.Workbooks.add '默认就已经建立了一个Sheet '添加新的表 oBook.WorkSheets.add oBook.WorkSheets.add '选中第一个表 Set oSheet = oBook.WorkSheets.Item(1) oSheet.Name = "MySheetofTest" oSheet.Cells(1,1).value = "DataInThere" Set oSheet = oBook.WorkSheets.Item(2) oSheet.Name = "MySheetofTest2" oSheet.Cells(1,2).value = "DataInThere2" Set oSheet = oBook.WorkSheets.Item(3) oSheet.Name = "MySheetofTest3" oSheet.Cells(1,3).value = "DataInThere3" 'TODO:删除第一张表' oBook.WorkSheets(1).Delete oBook.SaveAs(filePath) '获得已选中的表的第一行一列单元格的值 Set oSheet = oBook.WorkSheets.Item(1) getValue = oSheet.Cells(1,1).Value Set oSheet = oBook.WorkSheets.Item(2) getValue2 = oSheet.Cells(1,2).Value oBook.CLOSE oExcel.quit '释放内存 Set oSheet = Nothing Set oBook = Nothing Set oExcel = Nothing MsgBox(getValue&"+"&getValue2) ```

在中国程序员是青春饭吗?

今年,我也32了 ,为了不给大家误导,咨询了猎头、圈内好友,以及年过35岁的几位老程序员……舍了老脸去揭人家伤疤……希望能给大家以帮助,记得帮我点赞哦。 目录: 你以为的人生 一次又一次的伤害 猎头界的真相 如何应对互联网行业的「中年危机」 一、你以为的人生 刚入行时,拿着傲人的工资,想着好好干,以为我们的人生是这样的: 等真到了那一天,你会发现,你的人生很可能是这样的: ...

程序员请照顾好自己,周末病魔差点一套带走我。

程序员在一个周末的时间,得了重病,差点当场去世,还好及时挽救回来了。

和黑客斗争的 6 天!

互联网公司工作,很难避免不和黑客们打交道,我呆过的两家互联网公司,几乎每月每天每分钟都有黑客在公司网站上扫描。有的是寻找 Sql 注入的缺口,有的是寻找线上服务器可能存在的漏洞,大部分都...

搜狗输入法也在挑战国人的智商!

故事总是一个接着一个到来...上周写完《鲁大师已经彻底沦为一款垃圾流氓软件!》这篇文章之后,鲁大师的市场工作人员就找到了我,希望把这篇文章删除掉。经过一番沟通我先把这篇文章从公号中删除了...

总结了 150 余个神奇网站,你不来瞅瞅吗?

原博客再更新,可能就没了,之后将持续更新本篇博客。

副业收入是我做程序媛的3倍,工作外的B面人生是怎样的?

提到“程序员”,多数人脑海里首先想到的大约是:为人木讷、薪水超高、工作枯燥…… 然而,当离开工作岗位,撕去层层标签,脱下“程序员”这身外套,有的人生动又有趣,马上展现出了完全不同的A/B面人生! 不论是简单的爱好,还是正经的副业,他们都干得同样出色。偶尔,还能和程序员的特质结合,产生奇妙的“化学反应”。 @Charlotte:平日素颜示人,周末美妆博主 大家都以为程序媛也个个不修边幅,但我们也许...

MySQL数据库面试题(2020最新版)

文章目录数据库基础知识为什么要使用数据库什么是SQL?什么是MySQL?数据库三大范式是什么mysql有关权限的表都有哪几个MySQL的binlog有有几种录入格式?分别有什么区别?数据类型mysql有哪些数据类型引擎MySQL存储引擎MyISAM与InnoDB区别MyISAM索引与InnoDB索引的区别?InnoDB引擎的4大特性存储引擎选择索引什么是索引?索引有哪些优缺点?索引使用场景(重点)...

如果你是老板,你会不会踢了这样的员工?

有个好朋友ZS,是技术总监,昨天问我:“有一个老下属,跟了我很多年,做事勤勤恳恳,主动性也很好。但随着公司的发展,他的进步速度,跟不上团队的步伐了,有点...

我入职阿里后,才知道原来简历这么写

私下里,有不少读者问我:“二哥,如何才能写出一份专业的技术简历呢?我总感觉自己写的简历太烂了,所以投了无数份,都石沉大海了。”说实话,我自己好多年没有写过简历了,但我认识的一个同行,他在阿里,给我说了一些他当年写简历的方法论,我感觉太牛逼了,实在是忍不住,就分享了出来,希望能够帮助到你。 01、简历的本质 作为简历的撰写者,你必须要搞清楚一点,简历的本质是什么,它就是为了来销售你的价值主张的。往深...

优雅的替换if-else语句

场景 日常开发,if-else语句写的不少吧??当逻辑分支非常多的时候,if-else套了一层又一层,虽然业务功能倒是实现了,但是看起来是真的很不优雅,尤其是对于我这种有强迫症的程序"猿",看到这么多if-else,脑袋瓜子就嗡嗡的,总想着解锁新姿势:干掉过多的if-else!!!本文将介绍三板斧手段: 优先判断条件,条件不满足的,逻辑及时中断返回; 采用策略模式+工厂模式; 结合注解,锦...

离职半年了,老东家又发 offer,回不回?

有小伙伴问松哥这个问题,他在上海某公司,在离职了几个月后,前公司的领导联系到他,希望他能够返聘回去,他很纠结要不要回去? 俗话说好马不吃回头草,但是这个小伙伴既然感到纠结了,我觉得至少说明了两个问题:1.曾经的公司还不错;2.现在的日子也不是很如意。否则应该就不会纠结了。 老实说,松哥之前也有过类似的经历,今天就来和小伙伴们聊聊回头草到底吃不吃。 首先一个基本观点,就是离职了也没必要和老东家弄的苦...

2020阿里全球数学大赛:3万名高手、4道题、2天2夜未交卷

阿里巴巴全球数学竞赛( Alibaba Global Mathematics Competition)由马云发起,由中国科学技术协会、阿里巴巴基金会、阿里巴巴达摩院共同举办。大赛不设报名门槛,全世界爱好数学的人都可参与,不论是否出身数学专业、是否投身数学研究。 2020年阿里巴巴达摩院邀请北京大学、剑桥大学、浙江大学等高校的顶尖数学教师组建了出题组。中科院院士、美国艺术与科学院院士、北京国际数学...

男生更看重女生的身材脸蛋,还是思想?

往往,我们看不进去大段大段的逻辑。深刻的哲理,往往短而精悍,一阵见血。问:产品经理挺漂亮的,有点心动,但不知道合不合得来。男生更看重女生的身材脸蛋,还是...

程序员为什么千万不要瞎努力?

本文作者用对比非常鲜明的两个开发团队的故事,讲解了敏捷开发之道 —— 如果你的团队缺乏统一标准的环境,那么即使勤劳努力,不仅会极其耗时而且成果甚微,使用...

为什么程序员做外包会被瞧不起?

二哥,有个事想询问下您的意见,您觉得应届生值得去外包吗?公司虽然挺大的,中xx,但待遇感觉挺低,马上要报到,挺纠结的。

当HR压你价,说你只值7K,你该怎么回答?

当HR压你价,说你只值7K时,你可以流畅地回答,记住,是流畅,不能犹豫。 礼貌地说:“7K是吗?了解了。嗯~其实我对贵司的面试官印象很好。只不过,现在我的手头上已经有一份11K的offer。来面试,主要也是自己对贵司挺有兴趣的,所以过来看看……”(未完) 这段话主要是陪HR互诈的同时,从公司兴趣,公司职员印象上,都给予对方正面的肯定,既能提升HR的好感度,又能让谈判气氛融洽,为后面的发挥留足空间。...

面试:第十六章:Java中级开发(16k)

HashMap底层实现原理,红黑树,B+树,B树的结构原理 Spring的AOP和IOC是什么?它们常见的使用场景有哪些?Spring事务,事务的属性,传播行为,数据库隔离级别 Spring和SpringMVC,MyBatis以及SpringBoot的注解分别有哪些?SpringMVC的工作原理,SpringBoot框架的优点,MyBatis框架的优点 SpringCould组件有哪些,他们...

面试阿里p7,被按在地上摩擦,鬼知道我经历了什么?

面试阿里p7被问到的问题(当时我只知道第一个):@Conditional是做什么的?@Conditional多个条件是什么逻辑关系?条件判断在什么时候执...

面试了一个 31 岁程序员,让我有所触动,30岁以上的程序员该何去何从?

最近面试了一个31岁8年经验的程序猿,让我有点感慨,大龄程序猿该何去何从。

大三实习生,字节跳动面经分享,已拿Offer

说实话,自己的算法,我一个不会,太难了吧

程序员垃圾简历长什么样?

已经连续五年参加大厂校招、社招的技术面试工作,简历看的不下于万份 这篇文章会用实例告诉你,什么是差的程序员简历! 疫情快要结束了,各个公司也都开始春招了,作为即将红遍大江南北的新晋UP主,那当然要为小伙伴们做点事(手动狗头)。 就在公众号里公开征简历,义务帮大家看,并一一点评。《启舰:春招在即,义务帮大家看看简历吧》 一石激起千层浪,三天收到两百多封简历。 花光了两个星期的所有空闲时...

《Oracle Java SE编程自学与面试指南》最佳学习路线图2020年最新版(进大厂必备)

正确选择比瞎努力更重要!

《Oracle Java SE编程自学与面试指南》最佳学习路线图(2020最新版)

正确选择比瞎努力更重要!

都前后端分离了,咱就别做页面跳转了!统统 JSON 交互

文章目录1. 无状态登录1.1 什么是有状态1.2 什么是无状态1.3 如何实现无状态1.4 各自优缺点2. 登录交互2.1 前后端分离的数据交互2.2 登录成功2.3 登录失败3. 未认证处理方案4. 注销登录 这是本系列的第四篇,有小伙伴找不到之前文章,松哥给大家列一个索引出来: 挖一个大坑,Spring Security 开搞! 松哥手把手带你入门 Spring Security,别再问密...

字节跳动面试官竟然问了我JDBC?

轻松等回家通知

面试官:你连SSO都不懂,就别来面试了

大厂竟然要考我SSO,卧槽。

阿里面试官让我用Zk(Zookeeper)实现分布式锁

他可能没想到,我当场手写出来了

终于,月薪过5万了!

来看几个问题想不想月薪超过5万?想不想进入公司架构组?想不想成为项目组的负责人?想不想成为spring的高手,超越99%的对手?那么本文内容是你必须要掌握的。本文主要详解bean的生命...

自从喜欢上了B站这12个UP主,我越来越觉得自己是个废柴了!

不怕告诉你,我自从喜欢上了这12个UP主,哔哩哔哩成为了我手机上最耗电的软件,几乎每天都会看,可是吧,看的越多,我就越觉得自己是个废柴,唉,老天不公啊,不信你看看…… 间接性踌躇满志,持续性混吃等死,都是因为你们……但是,自己的学习力在慢慢变强,这是不容忽视的,推荐给你们! 都说B站是个宝,可是有人不会挖啊,没事,今天咱挖好的送你一箩筐,首先啊,我在B站上最喜欢看这个家伙的视频了,为啥 ,咱撇...

代码注释如此沙雕,会玩还是你们程序员!

某站后端代码被“开源”,同时刷遍全网的,还有代码里的那些神注释。 我们这才知道,原来程序员个个都是段子手;这么多年来,我们也走过了他们的无数套路… 首先,产品经理,是永远永远吐槽不完的!网友的评论也非常扎心,说看这些代码就像在阅读程序员的日记,每一页都写满了对产品经理的恨。 然后,也要发出直击灵魂的质问:你是尊贵的付费大会员吗? 这不禁让人想起之前某音乐app的穷逼Vip,果然,穷逼在哪里都是...

立即提问
相关内容推荐