Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

38118 / 76732

←次へ　｜　前へ→


	【43757】次々登録しデータベース化させたい

To - 06/10/24(火) 18:42 -


	引用なし

	パスワード

'　全情報列分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

1 hits

▼

【43757】次々登録しデータベース化させたい To 06/10/24(火) 18:42

≪