Results of 1 - 1 of about 295 for cell filename (0.001 sec.)
cell (1170), filename (1984)
- [[20230330180154]]
- #score: 11157
- @digest: 70bf99ee5c273a434d337945469bdf0f
- @id: 93887
- @mdate: 2023-03-31T13:05:09Z
- @size: 4127
- @type: text/plain
- #keywords: xoutmail (63503), xoutapp (57279), xmailbody (36904), 先パ (12340), ス"& (11484), xrg (11368), extendoffice (9554), xlopenxmlworkbookmacroenabled (8339), 為vb (7005), strfilename (6220), outlook (5931), attachments (5682), ス¥" (5027), createitem (4182), mail (3693), display (3659), 整頓 (3401), subject (2919), fileformat (2765), 存先 (2229), 携帯 (2175), saveas (1609), thisworkbook (1492), ・現 (1448), update (1390), target (1300), 添付 (1223), isnumeric (1078), nothing (967), filename (953), 保存 (924), 付し (731)
- 『【VBA】現在のブックを、指定セルの値を名前として保存し、Outlookメールに添付したい』（はる）
初めて質問させていただきます。VBA初心者です。 以下3点を実行したく、自分なりに調べて記述をしましたが、上手くいきません。 どなたか助けていただけないでしょうか。 ・現在のブックを、指定のフォルダに名前を付けて保存 ・その際、現在のブック【A1】セルの値を名前にし保存したい ・同時に現在のブックを添付したOutlookメールを立ち上げたい 記述↓ 携帯から打っている為、見づらい箇所がありましたら申し訳ありません Dim xRg As Range "Update by Extendoffice 2018/3/7 Private Sub Worksheet Change(ByVal Target As Range) On Error Resume Next If Target.Cells.Count > 1 Then Exit Sub Set xRg Intersect(Range("D7"), Target) If xRg Is Nothing Then Exit Sub If IsNumeric(Target.Value) And Target.Value> 200 Then Call Mail_small_Text Outlook End If End Sub Sub Mail_small_Text Outlook() Dim xOutApp As Object Dim xOutMail As Object Dim xMailBody As String Set xOutApp CreateObject("Outlook Application") Set xOutMail-xOutApp.CreateItem(0) xMailBody"○○" On Error Resume Next With xOutMail .To= "○○.co.jp" .CC="" .BCC="" .Subject="○○" .Body xMailBod .This Workbook.SaveAs Filename:="T:ファイルの保存先パス"& ThisWorkbook(Range("A1").Value, _ FileFormat:=xlOpenXMLWorkbookMacroEnabled .Attachments.Add ThisWorkbook.Path& "¥" & ThisWorkbook.Name .Display End With On Error GoTo 0 Set xOutMail- Nothing Set xOutApp Nothing End Sub 記述以上 コンパイルエラーでは、SaveAs文のRangeの部分を指摘されます。 どのように修正したらよろしいでしょうか。 ＜ 使用 Excel:unknown、使用 OS:Windows10 ＞ ---- ＞携帯から打っている為 VBEからコピペした方が誤解が無いと思いますが、 分かる範囲で回答します。 .This Workbook.SaveAs Filename:="T:ファイルの保存先パス"& ThisWorkbook(Range("A1").Value, _ FileFormat:=xlOpenXMLWorkbookMacroEnabled 上記がそのまま書かれているとしたら、 1)xOutMailというMailItem オブジェクトのプロパティ/メソッドに、 ThisWorkbookはありません。 2)ThisWorkbook(Range("A1").Value ・シートを指定していない （giraffe） 2023/03/30(木) 21:10:20 ---- ご返信ありがとうございます。 全くの初心者なもので、構文等理解できていませんでした…。 ご指摘頂いた事も、私の理解不足でピンときていないような状況なので、 勉強し直そうと思います。 お手数をお掛けいたしました。 （はる） 2023/03/31(金) 07:23:39 ---- https://stackoverflow.com/questions/68919366/send-to-email-address-saved-in-cell ここから持ってきたのかな? 試してないけど、整頓するとこんな感じ? Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) 'Update by Extendoffice 2018/3/7 Dim xRg As Range If Target.Cells.Count > 1 Then Exit Sub Set xRg = Intersect(Range("D7"), Target) If xRg Is Nothing Then Exit Sub If IsNumeric(Target.Value) And Target.Value > 200 Then Call Mail_small_Text_Outlook End If End Sub Sub Mail_small_Text_Outlook() Dim xOutApp As Object Dim xOutMail As Object Dim xMailBody As String Dim strFileName As String Set xOutApp = CreateObject("Outlook Application") Set xOutMail = xOutApp.CreateItem(0) xMailBody = "○○" strFileName = "T:¥ファイルの保存先パス¥" & Range("A1").Value & ".xlsx" ThisWorkbook.SaveAs FileName:=strFileName, _ FileFormat:=xlOpenXMLWorkbookMacroEnabled With xOutMail .To = "○○.co.jp" .CC = "" .BCC = "" .Subject = "○○" .Body = xMailBody .Attachments.Add strFileName .Display End With Set xOutMail = Nothing Set xOutApp = Nothing End Sub （稲葉） 2023/03/31(金) 10:05:44 ---- ご丁寧にありがとうございます。非常に参考になります。 元のコードはそちらから持ってきました! そこに名前を取得&保存機能を付けようとしておりました。 家でPCが使えない環境なので、週明けに職場で試してみようと思います。 ありがとうございます。 （はる） 2023/03/31(金) 22:05:09... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/202303/20230330180154.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97054 documents and 608269 words.
訪問者：