2013-07-10 70 views
0

我有我需要創建報告的每日csv文件。 csv的標題在最後一行,第一行是一個可丟棄的註釋。導入csv excel與最後一行的標題

我希望能夠打開我的工作簿和運行一個宏,將:

  1. 提示我選擇合適的CSV文件
  2. 提示我的工作表的名稱,並創建一個名稱的工作表
  3. 拉數據到新的工作表
  4. 剪切從最後一排的頭部,並與他們代替在第一行

(4)一直是關鍵。這些文件具有未知數量的行,因此我需要將最後一行標識爲過程的一部分。他們也可以改變列的數量,所以我不能使用固定的標題集。

回答

0

試着用這個。

Cells.SpecialCells(xlLastCell).Address 

您將獲得右下角單元格的地址。

+0

謝謝,那是關鍵。我已經用下面的方法解決了這個問題,我將調整我的導入以忽略第一行'Sub cutlastrow() Cells.SpecialCells(xlLastCell).Select Rows(ActiveCell.Row).Cut Rows(1)插入 End Sub' – Aeredhal