|
' 全情報列分A列は登録日 B列は任意の名前にしたい
' A 登録日 B 品名 C No Dコード E 備考 となります。
' 次に保存された際 その下へ次々登録しデータベース化させたいのですが
登録した下記情報以上のVBA知識がありません。
教えて頂けないでしょうか?
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Range("A1").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Columns("A:E").Select
Selection.Copy
Workbooks.Add
Columns("A:A").Select
ActiveSheet.Paste
Columns("A:A").Select
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
"C:\Documents and Settings\KA\デスクトップ\コード.htm", "Sheet1", "$A:$A", _
xlHtmlStatic, "Book2_12168", "コードデータベース")
.Publish (True)
.AutoRepublish = False
End With
ActiveWindow.Close
Selection.ClearContents
Range("A1").Select
End Sub
|
|