Tag: csv

禁止“另存为”提示: 我看了这个话题，发现了一些帮助，但build议似乎并没有工作。我正在打开一个CSV文件到EXCEL中进行一些更改，然后想要将结果保存回相同的文件名和CSV格式。我想这样做没有提示，我正在确保我想保存该文件。我们正在使用一个macros启用Excel文件来导入数据进行更改，然后保存。整个过程由一个batch file启动，这个batch file将会在一段时间内打开Excel应用程序和指定的文件，这就是为什么我们不希望提示停止进程。这里是我在VBA中使用的代码来完成这项工作，以及我发现的其他潜艇，以帮助我压制提示。此代码位于文件的TheWorkbook中，而不是模块。我错过了什么吗？码 Sub fixfile() Const strFileName = "W:\Webshare\Documents Acquired in 2017\Jim Excel\snr-room-schedule.csv" Dim wbkS As Workbook Dim wshS As Worksheet Dim wshT As Worksheet Set wshT = Worksheets.Add(After:=Worksheets(Worksheets.Count)) Set wbkS = Workbooks.Open(Filename:=strFileName) Set wshS = wbkS.Worksheets(1) wshS.UsedRange.Copy Destination:=wshT.Range("A1") wbkS.Close SaveChanges:=False 'This is the area of work […]

最小的学习曲线语言与CSV文件一起工作: VBA不再为我切割。我有很多庞大的Excel文件，我需要做大量的计算，并将其分解到其他Excel / CSV文件。我需要一种语言，我可以在接下来的几天内采取措施来做我所需要的，因为这是一种紧急情况。我已经被build议python，但我想检查一下，如果有任何其他的CSV文件处理快速和容易。

在Python中使用xlrd将数字Excel数据作为文本读取: 我正在尝试使用xlrd读取Excel文件，我想知道是否有一种方法可以忽略Excel文件中使用的单元格格式，只需将所有数据导入为文本？这里是我使用的代码： import xlrd xls_file = 'xltest.xls' xls_workbook = xlrd.open_workbook(xls_file) xls_sheet = xls_workbook.sheet_by_index(0) raw_data = [['']*xls_sheet.ncols for _ in range(xls_sheet.nrows)] raw_str = '' feild_delim = ',' text_delim = '"' for rnum in range(xls_sheet.nrows): for cnum in range(xls_sheet.ncols): raw_data[rnum][cnum] = str(xls_sheet.cell(rnum,cnum).value) for rnum in range(len(raw_data)): for cnum in range(len(raw_data[rnum])): if (cnum == len(raw_data[rnum]) – 1): feild_delim […]

如何将制表符分隔文件转换为CSV格式？: 我有这种格式的文本文件： { attribute1 attribute2 attribute3…. attributeN value"A" value"B" value"C"…. value"Z" /* next line of values*/ } 每个单词由一个制表符分隔。我如何转换为CSV格式？我尝试使用Excel，但它给兼容性问题。

使用VB将excel工作表保存为CSV文件名+工作表名称: 我很新的VB编码，我试图保存多个Excel文件工作表到CSV，我不知道这样做多张，但我find了一种方法来做单个文件。我发现这个网站上的代码是非常有用的，我想要做的，唯一的问题是文件与工作表名称保存，但我想保存与原始文件和工作表名称，如filename_worksheet name ，我试图自己做这件事，但不断发生错误，请问我是否做错了？我正在使用的代码如下所示： Public Sub SaveWorksheetsAsCsv() Dim WS As Excel.Worksheet Dim SaveToDirectory As String Dim CurrentWorkbook As String Dim CurrentFormat As Long CurrentWorkbook = ThisWorkbook.FullName CurrentFormat = ThisWorkbook.FileFormat ' Store current details for the workbook SaveToDirectory = "H:\test\" For Each WS In ThisWorkbook.Worksheets WS.SaveAs SaveToDirectory & WS.Name, xlCSV Next Application.DisplayAlerts = False ThisWorkbook.SaveAs […]

python：创buildexcel工作簿并将csv文件转储为工作表: 我有几个csv文件，我想转储为一个Excel工作簿（xls / xlsx）中的新工作表。我如何做到这一点？ Googlesearch并find“pyXLwriter”，但似乎该项目已停止。虽然我试着'pyXLwriter'想知道有没有其他的select/build议/模块？非常感谢。 [编辑] 这是我的解决scheme：（任何人都有更多的精简，pythonic解决scheme？做评论thx） import glob import csv import xlwt import os wb = xlwt.Workbook() for filename in glob.glob("c:/xxx/*.csv"): (f_path, f_name) = os.path.split(filename) (f_short_name, f_extension) = os.path.splitext(f_name) ws = wb.add_sheet(str(f_short_name)) spamReader = csv.reader(open(filename, 'rb'), delimiter=',',quotechar='"') row_count = 0 for row in spamReader: for col in range(len(row)): ws.write(row_count,col,row[col]) row_count +=1 wb.save("c:/xxx/compiled.xls") […]

VBA从Web服务器导入UTF-8 CSV文件: 我有一个存储在Web服务器上的UTF-8 CSV文件。当我下载文件时，把它放在我的硬盘上，然后用macros（从macroslogging器）将它导入到Excel工作表中： Sub Macro2() Workbooks.OpenText Filename:= _ "C:/myFile.csv", Origin _ :=65001, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _ , Comma:=True, Space:=False, Other:=False End Sub 所有的字符（越南字符）都显示正确。当我尝试使用相同的macros而不是给出文件的本地地址（“C：/myFile.csv”）时，我传递了该文件的URL（“ http://myserver.com/myFile.csv ”）CSV被正确地导入到我的Excel工作表中，但越南的字符不能正确显示。我也尝试使用数据选项卡，但编码似乎被忽略的Excel： With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:/myFile.csv" _ , Destination:=Range("$A$1")) .Name = "myFile.csv" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen […]

在以+或 – 开头的字段上绕过excel csv公式转换，: 我有一个csv文件的内容： "x","y","-z" 当我导入它时，我得到：我怎样才能绕过这个转换？更新如果你试试： "x","y",="-z,a" “，a”没有被导入。如果你在前面放一个空格： "x","y",=" -z" 要么 "x","y"," -z" 它会正常工作

如何插入双引号或单引号: 我有很长的名单，我需要引用（可以是双引号或单引号），我有大约8000个。我有他们在Excel中没有任何引号，我可以复制所有的名称和粘贴他们没有问题，但仍然没有引号。我已经看了，并寻找一个Excel公式来添加引号到每一行的名字，但我没有运气。我也尝试了一些聪明的发现和replace技术，但没有工作。我正在寻找的格式是这样的： “艾伦”或“艾伦” 任何这些将工作。我需要这个，所以我可以将信息存储到数据库中。任何帮助是极大的赞赏。谢谢 PS：我发现在线的其他人需要做同样的事情，我需要做的，这个解决scheme已经为他们工作，但我不知道它是怎么做的：你可以通过使用范围variables（例如myCell）来修复它，然后使用它来迭代范围对象的“select”集合，就像这样 Sub AddQuote() Dim myCell As Range For Each myCell In Selection If myCell.Value <> "" Then myCell.Value = Chr(34) & myCell.Value End If Next myCell End Sub 另一个解决scheme也为别人工作是： Sub OneUglyExport() Dim FileToSave, c As Range, OneBigOleString As String FileToSave = Application.GetSaveAsFilename Open […]