Excel 宏仅导出第一行
我编写了一个宏,用于CSV到excel导入超过65K行。我通过点击按钮从c中调用宏,在宏中我编写了逐行读取文本文件并添加到冒号的代码。最后,我选择整个列,并使用enable Text to COLUMNS(启用文本到列,以逗号分隔)导出到excel 问题是,它只导出第一行 请帮帮我Excel 宏仅导出第一行,excel,vba,Excel,Vba,我编写了一个宏,用于CSV到excel导入超过65K行。我通过点击按钮从c中调用宏,在宏中我编写了逐行读取文本文件并添加到冒号的代码。最后,我选择整个列,并使用enable Text to COLUMNS(启用文本到列,以逗号分隔)导出到excel 问题是,它只导出第一行 请帮帮我 Sub Read(FileName As String) 'Dimension Variables Dim ResultStr As String 'Dim FileName As Stri
Sub Read(FileName As String)
'Dimension Variables
Dim ResultStr As String
'Dim FileName As String
Dim FileNum As Integer
Dim Counter As Double
'Ask User for File's Name
'FileName = InputBox("Please enter the Text File's name, e.g. test.txt")
'Check for no entry
If FileName = "" Then End
'Get Next Available File Handle Number
FileNum = FreeFile()
'Open Text File For Input
Open FileName For Input As #FileNum
'Turn Screen Updating Off
Application.ScreenUpdating = False
'Create A New WorkBook With One Worksheet In It
Workbooks.Add template:=xlWorksheet
'Set The Counter to 1
Counter = 1
'Loop Until the End Of File Is Reached
Do While Seek(FileNum) <= LOF(FileNum)
'Display Importing Row Number On Status Bar
Application.StatusBar = "Importing Row " & _
Counter & " of text file " & FileName
'Store One Line Of Text From File To Variable
Line Input #FileNum, ResultStr
'Store Variable Data Into Active Cell
If Left(ResultStr, 1) = "=" Then
ActiveCell.Value = "'" & ResultStr
Else
ActiveCell.Value = ResultStr
End If
'For xl97 and later change 16384 to 65536
If ActiveCell.Row = 65536 Then
ActiveWorkbook.ActiveSheet.Columns(1).Select
Selection.TextToColumns DataType:=xlDelimited, _
ConsecutiveDelimiter:=True, Space:=False, Comma:=True
'If On The Last Row Then Add A New Sheet
ActiveWorkbook.Sheets.Add
Else
'If Not The Last Row Then Go One Cell Down
ActiveCell.Offset(1, 0).Select
End If
'Increment the Counter By 1
Counter = Counter + 1
'Start Again At Top Of 'Do While' Statement
Loop
'Close The Open Text File
Close
ActiveWorkbook.ActiveSheet.Columns(1).Select
Selection.TextToColumns DataType:=xlDelimited, _
ConsecutiveDelimiter:=True, Space:=False, Comma:=True
'Remove Message From Status Bar
Application.StatusBar = False
End Sub
C锐利的按钮点击事件
private void button1_Click(object sender, EventArgs e)
{
file_Writer = new StreamWriter(@"c:\tstf.csv",true);
//file_Writer.Close();
//first row
for (int i = 0; i < 8; i++)
{
file_Writer.Write("A,");
}
file_Writer.Write("\n");
// second row
for (int i = 0; i < 8; i++)
{
file_Writer.Write("B,");
}
file_Writer.Close();
Thread.Sleep(1000);
object oMissing = System.Reflection.Missing.Value;
Excel.ApplicationClass oExcel = new Excel.ApplicationClass();
oExcel.Visible = true;
Excel.Workbooks oBooks = oExcel.Workbooks;
Excel._Workbook oBook = null;
oBook = oBooks.Open("F:\\read.xls", oMissing, oMissing,
oMissing, oMissing, oMissing, oMissing, oMissing, oMissing,
oMissing, oMissing, oMissing, oMissing, oMissing, oMissing);
// Run the macros.
//RunMacro(oExcel, new Object[] { "DoKbTest" });
RunMacro(oExcel, new Object[] { "siva1", @"c:\tstf.csv" });
// Quit Excel and clean up.
oBook.Close(false, oMissing, oMissing);
System.Runtime.InteropServices.Marshal.ReleaseComObject(oBook);
oBook = null;
System.Runtime.InteropServices.Marshal.ReleaseComObject(oBooks);
oBooks = null;
oExcel.Quit();
System.Runtime.InteropServices.Marshal.ReleaseComObject(oExcel);
oExcel = null;
GC.Collect();
}
您可以在条件未按预期工作时执行。尝试:
Do until Eof(FileNum)
....
Loop
和/或问题是由于您没有正确关闭输出文件。尝试:
关闭Filenum我找到了问题的原因。这是由于回车造成的\n。我将\r\n添加到行的末尾,而不仅仅是\r\n
file_Writer.Write("\r\n");
当从Excel调用时,它能工作吗?不,它在Excel上调用时也不能工作,所以它不是c问题。我去掉了那个标签。谢谢回复。如果我直接打开文本文件,编辑任何字符并保存通过c创建的文件,工作正常。问题出在哪里?你检查了我在下面的回答中提到的项目了吗??