怎么批量向excel表添加一列相同值

如何批量向excel表添加一列相同值
文件夹下有几百个excel表，只有两列，现在想在第三列插入一个相同的值。我在网上找了一个办法，如下面代码所示，但是，我不明白在哪里添加，如何添加插入相同值？

Sub mysub()

Dim ShApp As Object, mysheet As Object

Dim TF As Boolean, i As Integer

Dim aTable As Object, n As Integer

On Error Resume Next

n = 0

With Application.FileDialog(msoFileDialogFilePicker)

       .Title = "请选定要处理的excel文档"

       .Filters.Add "excel文档", "*.xls"     

       .AllowMultiSelect = True

       If .Show <> -1 Then Exit Sub

       Set ShApp = GetObject(, "Excel.Application")

       If Err <> 0 Then

           TF = True

           Set ShApp = CreateObject("Excel.Application")

       End If

       Application.ScreenUpdating = False

       For i = 1 To .SelectedItems.Count

           Set mysheet = ShApp.Workbooks.Open(.SelectedItems(i))

                With mysheet.Sheets(1) 

                     .columns(5).insert

                End With

                n = n + 1

           mysheet.Close True

       Next i

   End With

   If TF = True Then ShApp.Quit

   Set ShApp = Nothing

   MsgBox "处理完毕，共处理了" & n & "个excel文档。"

   Application.ScreenUpdating = True

End Sub

------解决方案--------------------
 With mysheet.Sheets(1)                      
 .columns(5).insert                 
End With 
在第一个sheet操作，你应该在这个地方添加自己的代码