Tag: export to csv

将电子邮件数据导出到CSV文件（或XLS文件）中的特定字段: 这是关于Excel和Outlook 2013 – 我正在处理一个我需要的问题接收电子邮件让电子邮件自动移动到特定的文件夹将所述文件夹中的任何电子邮件导出到.csv文件中该文件中的数据必须放在特定的列中。除了＃4，我可以达到上述所有。该脚本根据断点将整个电子邮件的主体放置在不同的单元格中。以下是我需要导出的电子邮件的副本：兴趣范围：发布工作工作types：全职校园地点：蒙哥马利 ——————— 联系信息：职位：经理联系人姓氏：威尔逊联系人名字：Allison 地址：3424 Peachtree Rd NE 城市：亚特兰大状态：格鲁吉亚邮编：30326 电话：4042669876 电子邮件：specialtyma@pyapc.com ——————— 公司信息：公司名称：Pershing，Yoakley＆Associates 公司电话：4042669876 公司传真号码：公司网站：业务types： ——————— 工作细节：职位名称：医疗助理开始date：2016年8月1日工作types：全职薪资范围：$ 25,000 引荐来源： ——————— 职位描述：在蒙哥马利的专业实践中，AL寻求一位医疗助理。先在医疗实践中的经验是首选。候选人一定很棒人际关系和客户服务技能，而且必须是自我启动者和多任务 – 协助医生检查和治疗病人和临床设备的维护。有兴趣的应聘者应提交简历至：specialtyma@pyapc.com。 […]

CSV文件中特定单元格的VBA脚本计算: 我试图确定在我的VBA脚本中的一个单元格内产生3个值的计算的最佳方法：该脚本是当前的格式： Function BuildValuesString(colIndex As String, rows As String) As String Dim val As Variant For Each val In Split(rows, ",") If Cells(val, colIndex) <> "" Then BuildValuesString = BuildValuesString & Cells(val, colIndex).Value & "," Next val End Function Function BuildNullStrings(numNullStrings As Long) As String Dim iNullStrings As Long For iNullStrings = 1 To numNullStrings […]

将excel中的特定图纸转换为csv: 如何使用C＃Interop将Excel中的特定工作表转换为CSV？它是默认的第一张或我可以指定？这是我使用的代码： private void ConvertProgsToCSV() { Excel.Application app = new Excel.Application(); Excel.Workbook wb = app.Workbooks.Open(txtFname.Text); wb.SaveAs(@"C:\Temp\output.csv", Excel.XlFileFormat.xlCSVWindows); wb.Close(false); app.Quit(); Console.WriteLine("Done!"); }

用Perl生成的csv文件损坏: 我使用perl模块Text::CSV_XS创build了一个csv文件。这是相关的代码： open (my $csv_fh, '>', $tmp_file) or die("Unable to open CSV '$tmp_file' for write"); my $csv = Text::CSV_XS->new({'binary' => 1, 'sep_char' => $config->{'csv'}->{'sep_char'}, 'eol' => "\015\012"}) or die(Text::CSV->error_diag()); $csv->print($csv_fh, ["ID", "ASEITE", "ERDAT", "QUELLE", "AUSGABE", "RESSORT", "AUTNR", "NAME", "ANZHLZEIL", "ANZHLZEICH", "UEBER", "TEXTSP", "ART", "BETRAG", "GRUND", "FEST", "STATUS", "SLEVEL"]); $csv->print($csv_fh, ["A","1","AB","A-5","01","12345","12345","NAME","0","0","Testtext","Testtext2","1","45","","","0",""]); close $csv_fh; 当我尝试使用Microsoft Excel打开文件时，我得到文件扩展名（csv）与文件的格式/结构不匹配的消息。我被问到如果我相信源。 […]

如何将结果导出到R中excel的不同选项卡上: 我有多个数据框，我想导出到excel / csv文件的不同选项卡。我将把我的15个dataframe分成三组，每组五个。这样，我将有三个Excel表单与五个不同的选项卡，而不是15个人的Excel表单。导出为excel： #fake data data_1<-data.frame(c(03,23,4,2)) data_2<-data.frame(c(0223,3,1,2)) data_3<-data.frame(c(0232,3,1,1)) data_4<-data.frame(c(21,23,5,6)) data_5<-data.frame(c(24,5,6,7)) #fake names mydatasets<-c(data_1,data_2,data_3,data_4,data_5) mytitles<-c("data1", "data2", "data3","data4", "data5") #for loop to write out individual csv files for (i in 1:5)) { a <- mydatasets[i] title<-mytitles[i] myfile <- paste0(title, "_", ".csv") write.csv(a, file = myfile) } 如何获得上述代码将这些CSV文件合并到一个CSV文件或Excel文件的多个选项卡？

将MS Excel保存为CSV文件: 简介：我正在编写一个VBAmacros，它从一个源导入数据，然后在MS Excel文件中修改它，然后将它按照正确的顺序放在名为WegschrijfSheet的第一个表中。然后将此工作表复制到来自此文件的第一个工作表之前的新MS Excel文件。（这部分工作正常。）主要问题：现在我想将这个文件保存为CSV文件。我的代码这样做，但还没有以我想要的方式。首先在A1，B1，C1，H1等中的文本和/或值合并到单元格A1中。它为所有的行做到这一点。空的行充满了标志。结果示例： Productieorder，228767 ,,,,,,,,,, Artikelnummer，4022 631 79951 ,,,,,,,,,, Bewerkingsnummer，14 ,,,,,,,,,, Bewerkingsrevisie，1 ,,,,,,,,, Bestandslocatie ophalen：，Z：\ Parts Manufacturing \ 5。 Kwaliteit \ 130 – 在这个过程中\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ （在每一个,它应该跳转到下一个单元格。）解决这个问题的方法之一是将我的PC设置从欧洲改为美国。哪里. 是小数分隔符，反之亦然，但是以小数由a定义的值结束. […]

将选定的单元格导出为不带“引号”的.txt文件: 我正在做一个获取大量信息的Excel工作表。一些列有我需要在脚本中使用的信息，我使用下面的代码，我发现保存我select一个.txt文件后，我点击一个button。 Private Sub CommandButton21_Click() Dim myFile As String, rng As Range, cellValue As Variant, i As Integer, j As Integer myFile = Application.DefaultFilePath & "\NumeroChamados.txt" Set rng = Selection Open myFile For Output As #1 For i = 1 To rng.Rows.Count For j = 1 To rng.Columns.Count cellValue = rng.Cells(i, j).Value If j = […]

将电子表格/ excel文件分割为多个采用UTF-8编码的csv文件: 下面的代码成功地将大的Excel文件转换为具有指定行数的csv文件。我怎么想输出文件是UTF-8编码的CSV文件。如何将UTF-8代码添加到下面，我想将下面的拆分文件代码与UTF-8转换代码结合起来 Sub test() Dim wb As Workbook Dim ThisSheet As Worksheet Dim NumOfColumns As Integer Dim RangeToCopy As Range Dim RangeOfHeader As Range 'data (range) of header row Dim WorkbookCounter As Integer Dim RowsInFile 'how many rows (incl. header) in new files? Application.ScreenUpdating = False 'Initialize data Set ThisSheet = ThisWorkbook.ActiveSheet NumOfColumns = […]

删除隐藏的列保存excel范围到csv: 我做了代码保存excel范围到csv 但它隐藏的列也可以帮助删除隐藏的列？ 'Sub to select range from excel and save it as CSV 'Added code for paste special Private Sub Main() Dim sFullFilePath As String Dim selectedRange As Range sFullFilePath = "C:\MyFileName.csv" Set selectedRange = Application.InputBox("Select a range", "Get Range", Type:=8) RangeTOCsv sFullFilePath, selectedRange End Sub Private Sub RangeTOCsv(sFullFilePath As String, selectedRange As Range) Dim […]