用于读取xls和操作单元格的VBA脚本代码

Question

我有一张excel表，只有一张工作表。此Excel工作表的第一行具有列的标题。

工作表包含以下列和n行数据：

列：A | B | C | D | E | F | G | H

1. 首先，我正在创建该文件的副本并重命名 - 这个工作！

   'Copy and rename the file
   Dim sourceFile As String, destFile As String
   sourcePath = Range("D6")
   destFile = Split(sourcePath, ".")(0) + "_Formated.xls"
   FileCopy sourcePath, destFile
   

2. 我想通过VBA代码阅读这个destFile excel表。我会做一些单元格操作，所以请给我一个工作代码，以了解如何读取整个工作表以及如何在for循环中访问特定行。

3. 我还想知道通过VBA代码向此destFile excel表添加新列标题和值的代码。

4. 什么是通过VBA代码清除单元格值而不删除单元格的代码。

Answer 1

  

  
1. 我想通过VBA代码阅读这个destFile excel表。我会做一些单元格操作，所以请给我一个工作代码，以了解如何读取整个工作表以及如何在for循环中访问特定行。
  

dim sh as Worksheet
set sh =  Workbooks.Open(destFile).Worksheets(1)

  

  
1. 我还想知道通过VBA代码向此destFile excel表添加新列标题和值的代码。
  

sh.rows(1).Insert Shift := xlDown
ThisWorkbook.Worksheets(1).Rows(1).Copy sh.Rows(1)

  

  
1. 通过VBA代码清除单元格值的代码是什么，而不是删除单元格。
  

sh.Range("A1").Value = ""

Answer 2

我设法通过以下代码完成了这项工作。 这是编码它的最糟糕的方式，看起来并不复杂，但它完成了工作。 谢谢！

.format(..)