我有非常慢的VBA代码: Sub getMoreSpeed(bDoIt As Boolean) Application.ScreenUpdating = Not (bDoIt) Application.EnableEvents = Not (bDoIt) Application.Calculation = IIf(bDoIt, xlCalculationManual, xlCalculationAutomatic) Application.Cursor = IIf(bDoIt, 2, -4143) End Sub Sub import_0Grad() Call getMoreSpeed(True) Dim fd As FileDialog Dim strFolder As String Dim strName As String Dim intCol As Integer Dim rngCell As Range Dim ws As Worksheet Dim varArr […]
我正在编写一个程序,将预生成的.csv文件中的特定列复制到模板xlsx文件中。 用我的代码,我只能够将整个csv文件复制到第一列。 任何提示如何使程序在粘贴过程中看到“;”作为分隔符? 另外,如果我超越这个问题如何只复制我select的特定列? using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Threading.Tasks; using Excel = Microsoft.Office.Interop.Excel; namespace Kreator { class Program { static void Main(string[] args) { Excel.Application srcApp; Excel.Workbook srcWorkbook; Excel.Worksheet srcWorksheet; Excel.Application destApp; Excel.Workbook destWorkbook; Excel.Worksheet destWorksheet; string srcPath = "C:\\Users\\Desktop\\Raport.csv"; string destPath = "C:\\Users\\Desktop\\XXX.xlsx"; srcApp = new Excel.Application(); srcWorkbook = […]
我目前有使用Odoo的默认Excel导出工具的问题。 我正在使用Odoo 8,但不是最新的版本。 奇怪的是,对于同一版本的Odoo,我的一个数据库可以正常使用Excel导出工具,但另一个不能。 CSV导出工具在两个工作正常。 我安装了web_export_view模块,在两个数据库中都能正常工作。 当我按下button来实际导出选定的字段时发生错误。 它自己的服务器没有做任何事情(只是加载一点点),但我可以看到错误是在浏览器的控制台,这里是错误消息: http:// localhost:8059 / web / export / xls加载资源失败:服务器响应状态为404(NOT FOUND)POST http:// localhost:8059 / web / export / xls 404(NOT FOUND) 如果有人能帮助我,我将不胜感激。 我尝试了所有我能想到的事情。 祝你今天愉快!
Python 3.4.3 | Anaconda 2.3 | pandas 我已经从一个广泛的Excel中筛选了一些数据。 我有两个名字: import pandas as pd import sys #file loc R1 = input('Data do Relatório desejado (dd.mm) —> ') loc = r'C:\Users\lucas.mascia\Downloads\relatorio-{0}.xlsx'.format(R1) ###################################################################### #Solicitantes ps_sol = ["Mauro Cavalheiro Junior", "Aline Oliveira"] #Aplicando filtros for name in ps_sol: #opening file df = pd.read_excel(loc) dfps = df[[2,15,16,17]] #apply filter f1 […]
我通常使用pandas.read_csv从文件中获取数据。 当我使用这个函数时,我需要设置一个分隔符并指定文件中是否有标题。 有没有办法将这些任务传递给程序? 如果有标题和使用什么分隔符,不能编程找出自己? 如果有可能,我想进一步。 该函数本身不能找出存储date的格式,然后将所有的date作为date对象? 如果用户可以使用文件名作为唯一参数调用read_data函数并获取数据,那将是理想的。 该函数应该自动使用适当的较低级读取和parsing函数来读取正在读取的数据types。 它应该适用于CSV文件或Excel文件中的数据。 这个方向有什么东西吗?
我需要从CSV文件创build图表。 这种情况每天都会发生,所以我把它自动化了。 当CSV文件被创build时,它们被存储在当天的文件夹中。 当我打开我的VBA脚本时,它将读取该文件夹中的所有CSV文件,并将所有的表格(每个表格显然都粘贴在一张新的工作表中)粘贴在一个新的工作簿中。 With NewBook Set sv = .Sheets.Add(After:=.Sheets(i)) sv.Name = SvName < Add CSV-files to just created sheet > With sv LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row LastColumn = .Cells(2, .Columns.Count).End(xlToLeft).Column Debug.Print SvName & ":" & vbTab & "Cells(" & LastRow; ", " & LastColumn & ")" End With Set svChart = .Sheets.Add(After:=.Sheets(SvName)) svChart.Name = […]
我一直在试图循环在VBA中的一大串.csv文件。 他们每个人都是大约50MB。 在每一次迭代中,我都会打开一个新的CSV来处理数据,但是.csv打开时会出现一条下载消息,指出文件正在打开,并且进度条总是在VBA等待它完成时卡住。 其实.csv是打开的,因为如果我点击进度条上的“取消”代码继续运行良好,但我必须在每一次迭代做手动操作。 我的猜测是,VBA进入下一步,而文件没有打开或类似的东西,所以也许如果我做一个睡眠或类似的东西,它可以工作,但我所尝试的现在不工作。 (我已经尝试了Application.EnableEvents = False)。 这是我的代码: Sub GetOptions() Application.DisplayAlerts = False Application.EnableEvents = False Set Dates = Sheets("Dates") Set Res = Sheets("Options") Dim dateToday As Date ETF = "SPY" nrows = Dates.Cells(Rows.Count, 1).End(xlUp).Row For i = 708 To nrows If Dates.Cells(i, 2).Value = "B" Then dateToday = Dates.Cells(i, 1).Value dateYear = Year(dateToday) […]
我正在处理这个问题。 我有csv文件,这是由PowerShell脚本parsing。 Powershell使用附件创build邮件并使用smtp服务器发送邮件。 问题是,当用户收到电子邮件,打开它,并想打开附件。 它是* .csv附件,并由Excel打开(尝试不同的版本)。 它显示损坏的字符集(字符像ěéáý)。 如果我在Notepad ++中打开文件,我可以看到格式设置为UTF8,没有BOM。 如果我将它转换为带有BOM的UTF8,excel可以打开它没有任何问题。 我的问题是,我不知道在哪里,如果有可能强制创build与物料清单的附件。 string数据从csv文件中读取,如下所示: $reader = [System.IO.File]::OpenText($inputFile) $data = $reader.ReadLine() $stringData = {parse, copy, clear $data} 附件是这样创build的: $Utf8WithBom = New-Object System.Text.UTF8Encoding($True) [Byte[]]$contentAsBytes = $Utf8WithBom.GetBytes("$stringData") $memoryStream.Write($contentAsBytes, 0, $contentAsBytes.Length) $contentType = New-Object Net.Mime.ContentType -Property @{ MediaType = "application/vnd.ms-excel" CharSet = "UTF-8" Name = $AttachmentName } $attachment = New-Object System.Net.Mail.Attachment […]
我正在尝试使用CSV将一些数据写入Excel电子表格。 我正在写一个graphics取景器,读取来自fasta的input和输出到excel。 但是我很难用正确的格式写数据。 我在Excel中的预期结果如下所示。 SeqName M1 Hits M2 Hits Seq1 MN[AZ] 3 V[AZ]R[ML] 2 Seq2 MN[AZ] 0 V[AZ]R[ML] 5 Seq3 MN[AZ] 1 V[AZ]R[ML] 0 我已经产生了正确的结果,但我不知道如何把它们放在正确的格式,如上所述。 这是迄今为止的代码。 import re from Bio import SeqIO import csv import collections def SearchMotif(f1, motif, f2="motifs.xls"): with open(f1, 'r') as fin, open(f2,'wb') as fout: # This makes SeqName static and everything […]
我正在构build一个将复杂数据插入到MySQL表中的函数,用作创buildCSV文件的队列。 没有进入明确的细节,我想要的只是简单地使用json_encode将数组转换为序列化格式,使用预处理语句将其插入到MySQL表中,然后检索数据json_decode,并将原始数据以完全相同的格式它是在插入之前。 代码如下所示: // Array data previously created foreach ( $array as $key => $element ) { $array[$key] = htmlspecialchars($element,ENT_QUOTES); } $this->db->query("UPDATE `table` SET `blob_field` = '".$this->db->escape($array)."' WHERE `id` = '".(int)$id."'"); 然后我使用以下方法检索数据: $decoded_array = $this->db->query("SELECT `blob_field` FROM `table` WHERE `id` = '".(int)$id."'")->row['blob_field']; $decoded_array = json_decode($decoded_array); $decoded_array = array_map('htmlspecialchars_decode',$decoded_array); // Add to CSV using fputcsv standard […]