Tag: file io

VBA：如何将string读入dynamic数组，其大小可以确定（按文本文件中的行数）: 我很难find我如何读取正在阅读的文本文件中的行数，而无需再次打开文件。在此先感谢您的时间。如果您能够轻松地find我所说的话（我已经尽了我的尽职调查），我很抱歉。 Sub CreateMessage() Dim filepath As String ' Read filepath in spreadsheet filepath = Cells(6, 8) ' Parse string contents from script ' Open file Open filepath For Input As #1 如何将文本文件的每一行读入一个dynamic数组，大小由文本文件中这一行的行数决定？ ' Close file Close #1 End Sub

用OI-3.5-FINAL将多行写入EXCEL: 我有一些数据将它们放入一个Excel表，4个值，n行。我试过这个： final HSSFWorkbook wb = new HSSFWorkbook(); final HSSFSheet sheet = wb.createSheet(); FileOutputStream stream; HSSFRow row = null; try { stream = new FileOutputStream(targetDirectory + "workbook.xls"); for (int i = 1; i < data.size(); i++) { row = sheet.createRow((short) i); cell = row.createCell(0); cell.setCellValue("Das"); cell = row.createCell(1); cell.setCellValue("hier"); cell = row.createCell(2); cell.setCellValue("soll"); cell = […]

将每个工作表从一个Excel文件复制到另一个: 有了这个，可能很容易解决的问题，但没有任何编程技巧，我很难破解… … – 我用一个button，一个macros分配给它做了一个excel文件。它应该做什么：打开另一个xls文件，用户可以在硬盘上进行search 从打开的文件复制每张纸将其粘贴到原始文件并closures从中复制的文件。到目前为止，我得到这个： Sub Importfile() Dim sFile As String Dim wb As Workbook sFile = Application.GetOpenFilename("*.xls,*.xls") If sFile <> "False" Then Set wb = Workbooks.Open(sFile) 'Copy and paste code , where I dont know what to do wb.Close End If End Sub

检查工作簿是否打开vba，如果文件打开则崩溃: 我在这里发现了一些代码来检查工作簿是否打开，但是我得到了一个 Run-time Error '70': Permission Denied if the file is open. 我不知道如何处理这个错误或修改代码来处理这个问题。 Sub Sample() Dim Ret Ret = IsWorkBookOpen("I:\RJB\Juan's Project\Summary Sheet.xlsm") If Ret = True Then MsgBox "File is open" Else MsgBox "File is Closed" End If End Sub Function IsWorkBookOpen(FileName As String) Dim ff As Long, ErrNo As Long On Error Resume Next ff […]

尝试使用vba打开文件时，不要让错误发生: 我不确定是否有答案，虽然这看起来像一个非常简单的问题。我正在使用vba代码打开Sharepoint中的文件，但是，因为我不能使用Len（Dir（））来检查文件是否真的存在，所以我使用了在论坛中find的代码，但是此代码没有以我认为会的方式工作。我需要的是在Sharepoint中查找多个文件的代码，每个文件都需要有当前date（例如：如果我们在2014年7月，文件必须命名为Name_July2014，而不是Name_June2014或May_2014）。由于具有当前date的文件可能不存在，因此将在我正在使用的工作簿的特定单元格中input消息“未更新”，并且该macros将继续运行。代码运行良好，但每次都会停止显示消息文件不存在。每次macros尝试打开不存在的文件时都会出现此消息。我需要跳过这个警告，让代码运行。我认为这段代码会跳过警告（使用On Error GoTo），这将是显示文件存在的方式，但它不起作用。任何人都可以看看？我能否以某种方式避免消息“互联网地址…无效”？对不起，因为我的英文不够清楚，对不起，如果这个问题已经在另一篇文章中得到解答。这是代码的样子： 'Open the file and checks if the name of the file opened is different from the 'previous file opened On Error Resume Next Application.Workbooks.Open (fileName) newBook = ActiveWorkbook.Name If originalBook = newBook Then [the file does not exist, do something] Else […]

在Excel中inputExcel文件: 我想用Matlab中的excel文件创build一个包含相关信息的matrix，但是，当我在excel中读取时使用： data = xlsread(FILENAME); 我的“date”值被转换为NaN 示例inputexcel文件： [单元格A1] = 12/20/2010 [单元格A2] = 2/20/2011 [单元格A3] = 25 但是，当我读到这个variables使用： data = xlsread(FILENAME); 我在matrix中的值是： NaN NaN 25 有没有办法改变这个？我需要date。 Values in raw: Cell 1 Cell 2 Cell 3 Cell 4 Cell 5 'Date' 'Expiration' 'Strike' 'Implied Vol' 'Days' '01/31/2012' '02/03/2012' 21 .672 3 '02/1/2012' '02/03/2012' 21 .231 2 […] […]

VBA – 当工作簿（）closures时，下标超出范围: 我想遍历一个文件夹中的所有excel工作簿，并在每个工作簿的每个工作表的单元格A1中写入string“Test”。下面的代码导致“下标超出范围（错误9）”。当我一行一行地运行代码，结果发现错误是由行引起的： Workbooks(FName).Close Savechanges:=True 存储在FName Dir("C\…")只返回文件名，所以错误不能是因为将完整的path名给予Workboooks(…).Close这往往是导致错误。最重要的是，这个代码确实打开了工作簿，而不是只写入它。我不希望它打开视觉。 Sub multWB() Dim FName As String Dim wb As Workbook Dim sht As Worksheet Dim directory As String directory = "C:\Users\…\Desktop\multipleWorkbooks\" FName = Dir("C:\Users\…\Desktop\multipleWorkbooks\*.xls*") Do While FName <> "" Set wb = Workbooks.Open(directory & FName) For Each sht In wb.Worksheets sht.Cells(1, 1) = "Test" Next FName […]

写一个r列表到一个excel文件: 我有一个包含5个不同长度的数据框的列表。我想把这些数据框写在同一张Excel表里。我已经尝试使用WriteXLS()和write.xlsx()但不能得到所需的结果。

我怎样才能从Excel文件读取: 请你能用我的脚本来帮助我。我已经做了select从Excel文件，但现在我不知道我怎么能增加价值到我的名单。我不仅从一个文件中获取来自更多文件的数据。这是我的实际脚本：基本button启动事件进行读取。 private void next_Click(object sender, EventArgs e) { for (int i = 0; i < UniqueValue.traceToFile.Count; i++) { ReadFromExcel read = new ReadFromExcel(); read.ReadData(UniqueValue.traceToFile[i]); } } 下一步之后是这样的： class ReadFromExcel : Config { public void ReadData(string fullpath) { DataSet da = new DataSet(); OleDbDataAdapter adapter = new OleDbDataAdapter(); string cell = "C7"; […]

在C＃中打开Excel工作簿: 当我尝试通过C#应用程序打开Excel表格时遇到一个奇怪的问题。它使用类似于以下内容的templatePath为C:\template.xls为例。 Workbook excel_workbook = this.excel.Workbooks.Open(templatePath, mMissingValue, false, mMissingValue, mMissingValue, mMissingValue, mMissingValue, mMissingValue, mMissingValue, mMissingValue, mMissingValue, mMissingValue, mMissingValue, mMissingValue, mMissingValue); 然后在一些操作中涉及到excel_workbook对象。问题是， excel_workbook.name = template1 ，而不是模板，导致在单击保存时显示Save As对话框。这种行为从业务angular度打破了工作stream程。有人会帮助吗？注意到其他工作表正常工作。