excel2010
TESTフォルダ内にある。全てのexcelフィルをcutepdfwriterでpdfファイル化しようとしています。
マクロ
Sub test()
Application.DisplayAlerts = False
Dim Fol As String
Dim Fname As String
Dim Ws As Worksheet
Fol = "C:\test"
Fname = Dir(Fol & "\*.xlsm")
Do While Fname <> ""
If Fname <> ThisWorkbook.Name Then
Workbooks.Open Fol & "\" & Fname
For Each Ws In Worksheets
Ws.PrintOut
Next
Workbooks(Fname).Close SaveChanges:=False
End If
Fname = Dir()
Loop
End Sub
で実施するとファイルを開いてpdfファイルを作成可能なのですが、
各々のファイルに対して、名前をつけて保存
ファイル名.pdf
と聞いてきます。
その都度、保存というボタンをクリックする必要があり、
大量のファイル実施時、手間です。
なお、cutepdfwriterを通常使うプリンタに設定しています。
この保存というボタンをクリックしないで、ファイル名をそのままでpdfファイル化する方法は、
ありますでしょうか？
excel2010
TESTフォルダ内にある。全てのexcelフィルをcutepdfwriterでpdfファイル化しようとしています。
マクロ
Sub test()
Application.DisplayAlerts = False
Dim Fol As String
Dim Fname As String
Dim Ws As Worksheet
Fol = "C:\test"
Fname = Dir(Fol & "\*.xlsm")
Do While Fname <> ""
If Fname <> ThisWorkbook.Name Then
Workbooks.Open Fol & "\" & Fname
For Each Ws In Worksheets
Ws.PrintOut
Next
Workbooks(Fname).Close SaveChanges:=False
End If
Fname = Dir()
Loop
End Sub
で実施するとファイルを開いてpdfファイルを作成可能なのですが、
各々のファイルに対して、名前をつけて保存
ファイル名.pdf
と聞いてきます。
その都度、保存というボタンをクリックする必要があり、
大量のファイル実施時、手間です。
なお、cutepdfwriterを通常使うプリンタに設定しています。
この保存というボタンをクリックしないで、ファイル名をそのままでpdfファイル化する方法は、
ありますでしょうか？
ACCESS初心者です。
既にレコードが存在すテーブルで、DBを更新モードで開き、SELECT句を実行すると、更新モードから読み込みモードになり、更新/追加ができなく困っています。
以下にサンプルコーディングを掲載します。
SQLを実行する前と、実行後に
LockType
を表示したところ、
実行前は「３」更新可
実行後は「１」更新不可
となります。
どのようにすれば「LockType」が変らないようにできるでしょうか。
よろしくお願いします。
----------------------------------------------------------------------------------------------------------------------
Dim cmd As New ADODB.Command
Dim rs_issues As ADODB.Recordset
Dim adoCn As Object 'ADOコネクションオブジェクト
Set adoCn = CreateObject("ADODB.Connection") 'ADOコネクションオブジェクト
adoCn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" &
"データベース名"
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = adoCn
Set rs_issues = New ADODB.Recordset
rs_issues.Open "T_issues", db, adOpenDynamic, adLockOptimistic
cmd.CommandText = "SELECT *FROM T_issues WHERE i_チケット番号=123456"
Debug.Print rs_issues.LockType '(1)LockType=3
Set rs_issues = cmd.Execute
Debug.Print rs_issues.LockType '(1)LockType=1
お世話になります。
VBは素人で、自分なりにネットでいろいろ調べて、下記の物を作ってみたのですが、
うまくいかず、とても悩んでおります。
知ってる方、どなたか教えて頂けませんか？
よろしくお願いいたします。ｍ(_ _)ｍ
------------------------------------------------------------------
目的：
(1)テーブルのフィルド名を、各CSVの一行目に出力したい。
(2)テーブルのフィルドは30項目ぐらいあるため、下記のように個別出力ではなく、
一括で出力できるようにしたいです。
(3)すべての項目には、” ”で囲み、カンマで区切りをしたいです。
------------------------------------------------------------------
Option Compare Database
Option Explicit
Private objDB As DAO.Database
Private objExcel As Object 'EXCELオブジェクト
Private objWorkBook As Object 'WORKBOOKオブジェクト
Private objSheet As Object 'SHEETオブジェクト
Public Sub CSVsyuturyoku()
Dim db As DAO.Database
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim flag As Boolean
Set db = CurrentDb
Set rs1 = db.OpenRecordset("SELECT DISTINCT 氏名 FROM 出荷データ")
Do Until rs1.EOF
Set rs2 = db.OpenRecordset("SELECT * FROM 出荷データ" _
& " WHERE Nz(氏名) = '" & rs1!氏名 & "'")
flag = True
Open CurrentProject.Path & "\ファイル" & rs1!氏名 & ".csv" _
For Output As #1
Do Until rs2.EOF
'Print #1, Nz(rs2!商品名)
Print #1, rs2!商品コード & "," & rs2!商品名 & "," & rs2!単価
' ↑フィルド項目数が多すぎたため、全部書ききらず。。。
rs2.MoveNext
Loop
Close #1
rs1.MoveNext
Loop
rs1.Close: Set rs1 = Nothing
If flag Then rs2.Close: Set rs2 = Nothing
db.Close: Set db = Nothing
' 終了の表示
MsgBox "ファイル出力が完了しました。"
End Sub
